아래의 코드를 사용하면 폼이 서서히 나타나고/사라지기를 추가할 수 있습니다.
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;
사용 가능한 파라메터는
animatewindow(handle, 1000, aw_hor_positive);
animatewindow(handle, 1000, aw_hor_negative);
animatewindow(handle, 1000, aw_ver_positive);
animatewindow(handle, 1000, aw_ver_negative);
animatewindow(handle, 1000, aw_center);
animatewindow(handle, 1000, aw_hide);
animatewindow(handle, 1000, aw_activate);
animatewindow(handle, 1000, aw_slide);
animatewindow(handle, 1000, aw_blend);
등이 있으므로 이래저래 조합해서 사용해보세요.
|