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

[BukTop2009]

Уверен первые Ваши мысли закрыть тему, из-за того что есть схожие. Однако никто не растолковывал по-человечески как осуществляется плавное исчезновение. Взял алгоритм плавного появления, для тех кому понадобиться:

1)Свойство формы AlphaBlend:=True и его значение Value:=0

2)2 раза клик по Ttimer (Предварительно установив интервал в 10 например)

3)
Logo.AlphaBlendValue:= Logo.AlphaBlendValue+5;
if Logo.AlphaBlendValue=255 then timer1.Destroy;

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

[misher]

На форму добавляем Timer интервал 20.

Далее пишем

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.AlphaBlendValue := Form1.AlphaBlendValue - 5;
if Form1.AlphaBlendValue=0 then Form1.Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Timer1.Enabled=false then
   begin
   CanClose := false;
   Timer1.Enabled := true;
   exit;
   end;
CanClose := true;
end;

[BukTop2009]

Сообщение от misher

На форму добавляем Timer интервал 20.

Далее пишем

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.AlphaBlendValue := Form1.AlphaBlendValue - 5;
if Form1.AlphaBlendValue=0 then Form1.Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Timer1.Enabled=false then
   begin
   CanClose := false;
   Timer1.Enabled := true;
   exit;
   end;
CanClose := true;
end;

Вставляю 2 таймер прописываю код и вписываю ваше событие, форма вообще не появляется.

[misher]

Ну тогда можно так:

procedure TForm1.FormCreate(Sender: TObject);
begin 
AnimateWindow(Handle, 1000, AW_BLEND)
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND)
end;

end.

1000 - интервал таймера.

[BukTop2009]

Сообщение от misher

Ну тогда можно так:

procedure TForm1.FormCreate(Sender: TObject);
begin 
AnimateWindow(Handle, 1000, AW_BLEND)
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND)
end;

end.

1000 - интервал таймера.

Нет, почему-то даже не анимируется, но Вы уже анимацию хотите применить. А я просил обычное плавное появление и исчезновение.
По ходу задачка даже для Вас не простой оказалась.

[BukTop2009]

Мой примитивный вариант:

procedure TLogo.Timer1Timer(Sender: TObject);
var
s,s1:integer;
begin
Logo.AlphaBlendValue:= Logo.AlphaBlendValue+5;
if Logo.AlphaBlendValue=255 then begin
s:=255;
s1:=s;
Logo.AlphaBlendValue:= s1-1;
if Logo.AlphaBlendValue=0 then begin
Logo.Close;
timer1.Destroy;

Почему-то он циклом идёт, потух, появился, потух, появился... Как бы это исправить?

[misher]

Вот, все работает...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    


    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

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

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  Value: Byte = 0;
implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin
  AlphaBlend := True;
  AlphaBlendValue := Value;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Value:=Value + 1;
  if Value <= 254 then
    AlphaBlendValue := Value
  else
  begin
    Value := 0;
    Timer1.Enabled := False;
  end;
end;


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

 AlphaBlend:=true;
AlphaBlendValue:=255;
 for i:=255 downto 0 do
  begin
   AlphaBlendValue:=i;
   sleep(10);
  end;
  AlphaBlend:=false;
end;

end.

[eval]

sleep(10);

не кошерно

[misher]

не кошерно

по другому не знаю как

[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;