DELPHI 6.0 动画制做

  正文：procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  AnimateWindow(handle,200,AW_SLIDE);（滑动郊果）
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AnimateWindow(handle,200,AW_BLEND);（渐变郊果）
end;

end.

《DELPHI 6.0 动画制做》由第二电脑网原创提供，转载请注明：http://www.002pc.com/master/College/Language/Delphi/12932.html

关键字：

上一篇：压缩和修复MS Access 2000文件

下一篇：怎样在Delphi中调用LastError信息