폼이 서서히 나타나고 서서히 사라지기 (플래쉬효과)

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

출처 : http://delphi.borlandforum.com/impboard/impboard.dll?action=read&db=del_tip&no=264