Как сделать плавное закрытие окна ?

Материал из DRKB

Как сделать плавное закрытие окна ?[править | править код]

Работает в 2k/XP:


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


Author: p0s0l
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00443