表格文字:
对象 Form1:TForm1
左 = 192
顶部 = 107
边框样式 = bsNone
标题 = 'Form1'
客户端高度 = 348
客户端宽度 = 536
颜色 = clBtnFace
字体.Charset = DEFAULT_CHARSET
字体颜色 = clWindowText
字体高度 = -11
Font.Name = 'MS Sans Serif'
字体样式 = []
旧创建订单 = False
OnCreate = Button1Click
每英寸像素 = 96
文本高度 = 13
对象按钮1:TButton
左 = 392
顶部 = 152
宽度 = 75
高度 = 25
标题=“按钮1”
制表符顺序 = 0
单击时=按钮1单击
结尾
对象按钮2:TButton
左 = 432
顶部 = 24
宽度=17
高度 = 17
标题=“按钮2”
制表符顺序 = 1
OnClick = Button2Click
结尾
对象 Button3:TButton
左 = 448
顶部 = 40
宽度=17
高度 = 17
标题=“按钮2”
制表符顺序 = 2
OnClick = Button3Click
结尾
对象 Button4:TButton
左 = 464
顶部 = 56
宽度=17
高度 = 17
标题=“按钮2”
制表符顺序 = 3
OnClick = Button4Click
结尾
结尾
各种不同的事件声名:
TForm1 = 类(TForm)
按钮1:T按钮;
按钮2:T按钮;
按钮3:T按钮;
按钮4:T按钮;
PROcedure Button1Click(发送者: TObject);
过程 Button2Click(发件人: TObject);
过程 Button3Click(发件人: TObject);
程序 Button4Click(发件人: TObject);
私人的
程序 WMmove(var 消息: TWMNCHITTEST);消息WM_NCHITTEST;
{ 私人声明 }
民众
{ 公开声明 }
结尾;
变量
表格1:TForm1;
执行
{$R *.DFM}
过程 TForm1.WMmove(var 消息: TWMNCHITTEST);
开始
消息.结果 := HTCAPTION;
结尾;
过程 TForm1.Button1Click(发件人: TObject);
变量
R1、R2、R3、R4、R5:HRGN;
开始
R1 := CreateEllipticRgn(0,0,Round(ClientWidth / 2),ClientHeight);
R2 := CreateEllipticRgn(Round(ClientWidth / 2),0,ClientWidth,ClientHeight);
R3 := CreateEllipticRgn(Round(ClientWidth / 4 ),Round(ClientHeight / 4 *3),Round(ClientWidth / 4 *3),ClientHeight);
R4 := CreateRectRgn(0,0,0,0);
R5 := CreateRectRgn(0,0,0,0);
组合Rgn(R4,R2,R1,RGN_or);
组合Rgn(R5,R4,R3,RGN_or);
SetWindowRGN(句柄,R5,True);
删除对象(R1);
删除对象(R2);
删除对象(R3);
删除对象(R4);
删除对象(R5);
结尾;
过程 TForm1.Button2Click(发件人: TObject);
开始
SendMessage(句柄,WM_SYSCOMMAND,SC_MINIMIZE,0);
结尾;
过程 TForm1.Button3Click(发件人: TObject);
开始
SendMessage(句柄,WM_SYSCOMMAND,SC_DEFAULT,0);
结尾;
过程 TForm1.Button4Click(发件人: TObject);
开始
应用程序。终止;
结尾;
结尾。