|
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);WceLinux联盟
beginWceLinux联盟
AnimateWindow(handle,200,AW_SLIDE);（滑动郊果）WceLinux联盟
end;WceLinux联盟
WceLinux联盟
procedure TForm1.FormCreate(Sender: TObject);WceLinux联盟
beginWceLinux联盟
AnimateWindow(handle,200,AW_BLEND);（渐变郊果）WceLinux联盟
end;WceLinux联盟
WceLinux联盟
end.WceLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
