затухание формы.

[DeDoK]

Вопрос такой. хочу чтобы заставка при появлении затухала. пишу так.

procedure TSplashForm.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TSplashForm.Timer1Timer(Sender: TObject);
var
i:byte;
begin
i:=1;
while SplashForm.AlphaBlendValue>0 do
begin
SplashForm.AlphaBlendValue:=SplashForm.AlphaBlendValue-i;
end;
Sleep(2000);
Timer1.Enabled:=false;
SplashForm.Close;
end;

в Project > View source пишу так

begin
SplashForm:=TSplashForm.Create(nil);
SplashForm.Show;
SplashForm.Repaint;
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Sleep(2000);
  SplashForm.Hide;
  SplashForm.Free;
Application.Run;
end.

Все компилируется но не работает. по нажатию на кнопку на другой форме

procedure TMainForm.Button1Click(Sender: TObject);
begin
SplashForm.Show;
SplashForm.Timer1.Enabled:=true;
end;

все работает. как сделать чтобы заставка затухала?

[apromix]

Используй (для появления, но должно использоваться и для затухания) AnimateWindow(Handle, 250, AW_BLEND or AW_ACTIVATE);

[DeDoK]

не катит. тоже не работает. щас выложу исходник

[apromix]

А, вот нашел здесь на форуме

  AnimateWindow(Handle, 250, AW_BLEND or AW_HIDE);

[DeDoK]

вот и исходник

[raxp]

сие...

while SplashForm.AlphaBlendValue>0 do
begin
SplashForm.AlphaBlendValue:=SplashForm.AlphaBlendValue-i;

будет приводить к мгновенному уменьшению в одном тике таймера, который тут уже ни до чого + i не инкрементируется.


вот вам рабочий вариант...

[DeDoK]

raxp, спасибо. ваш метод вполне устроил.

[DeKot]

Можно добавить затухание не только по альфа, но и по размеру (плавно уменьшать размер вплоть до точки).Что то типа этого (на скорую руку набросал):
форма 500 х 300 плюс кнопка (для примера запуска)

procedure TForm1.Button1Click(Sender: TObject);
var i: byte;
begin
  for i:= 1 to 100 do
  begin
    Form1.Width:= Form1.Width -2;
    Form1.Height:= Form1.Height - 2;
  end;
  Form1.Canvas.Font.Size:= 16;
  Form1.Canvas.Font.Color:= clRed;
  Form1.Canvas.TextOut(30,10,' Щас-с закроюсь!');
  Sleep(2000);
  Close;
end;

[SERG1980]

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

Используй (для появления, но должно использоваться и для затухания) AnimateWindow(Handle, 250, AW_BLEND or AW_ACTIVATE);

AW_BLEND Использует эффект постепенного изменения прозрачности окна. Этот флажок может быть использован только в том случае, если параметр hwnd - окно верхнего уровня.