Показать сообщение отдельно
  #7  
Старый 08.12.2009, 14:59
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от AntoNechayuk
а у меня не работает как надо: пока на появившемся окне не "кликнешь" - изображение окна глючное и кнопок вообще нет!
Этот метод глючный, как вариант можно использовать TTimer+Form1.AlphaBlend+Form1.AlphaBlendValue, то есть в начале программы ставить на 0 AlphaBlendValue и с помощью таймера прибавлять значение
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием