unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(handle,500,AW_Center);
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
AnimateWindow(handle,500,AW_Center or AW_Hide or AW_BLEND);
end;end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(handle,500,AW_Center);
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
AnimateWindow(handle,500,AW_Center or AW_Hide or AW_BLEND);
end;end.
解决方案 »
- Delphi项目中,丢失了.pas文件,能还通过它的~ddp,~dfm,dcu,ddp,dfm等文件资料重新建立起来?
- quoted问题?急
- ◆◆◆哪位有Gmail的邮箱,麻烦给个邀请,100分相赠!◆◆◆
- TChart怎么控制X轴的坐标单位?
- 如何获取机器的所安装软件de信息以及硬件配置信息
- 大哥帮忙,小弟送分.
- 真诚请教做过三层开发的高手一个很久没有搞清楚的问题!在论坛也问过很多次了,快疯了,如果能找到答案,我的分可以全给。
- 如何判断我选择的是哪条直线?
- 各位大哥指点:PageScroller的用法。分都在这,这里先谢了!
- api 函数GetCommModemStatus 怎么用,
- &&&&&&&诚招Delphi开发人员及数据库开发人员,要求重庆地区人员或愿意到重庆工作的人员,具有工作及要求见内容
- 关于关键字不能重复的问题
那就要用到 fscommand 了啊