Плавное появление и исчезновение формы

Posted by Chas under Delphi

Но кто нибудь скажет как сделать исчезновение такое же плавное? Я пробывал с Ttimer’ом 2-ым не получилось то ли из за нехватки соображения, то-ли неверный подход к реализации. Подскажите пожалуйста гуру программирования.

evg_m

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var

  i: integer;

begin

  if not timer1.Enabeled then

    time1.enabled:=true;

    AlphaBlend:=true;

    AlphaBlendValue:=255;

  end

  else begin

    AlphaBlendValue:=AlphaBlendValue-1;

  end;

  if AlphaBlendValue>0 then action:=caNone //отказ от закрытия

  else action:=caClose; //закрываем

end;

Не проверял но должно работать.

Ах да в таймере надо снова пытаться закрыть форму, причем возможно придется посылать себе самому сообщение.
self.Close| SendMessage | PostMessage

или же так без «постоянных» забот о закрытии

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: integer;
begin
if alphablend>0 then action:=caNone; //если форма видна отказ от закрытия

if not time1.Enabled then begin
alhablendValue:=255;
timer1.enabled; //запустить таймер погашения
end;
end;

procedure TForm1.Time1Time(Sender: TObject);
begin
alphabledvalue:=alphablendvalue-1;
if alphablendvalue<1{=0} then begin // форма погашена self.time1.Enabled:=false; // отключаем таймер self.close; // закрываем форму end; end;[/code] тема на форуме

Похожие статьи

• Массив чекбоксов, как в PHP узнать, какой из чекбоксов выбран?
• Как передать значение из <select> в action формы
• Запретить выход курсора за API форму
• Как создать дочернее окно при нажатии на кнопку?
• Анимация на форме используя таймер
• Пример работы с таймером в delphi
• Пример использования потока в форме
• Перетаскивание формы в FireMonkey
• Задать свой обработчик событий у формы
• Cвернуть всё кроме моей формы