创建异形窗口[1]
作者:互联网
创建异形窗口[1]
本例效果图:![o_84302.gif](https://www.cnblogs.com/images/cnblogs_com/del/129733/o_84302.gif)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Button1.Caption := '创建'; Button2.Caption := '退出'; end; procedure TForm1.Button1Click(Sender: TObject); var rgn: HRGN; begin rgn := CreateEllipticRgn(0, 0, Width, Height); SetWindowRgn(Handle, rgn, True); end; procedure TForm1.Button2Click(Sender: TObject); begin Close; end; end.posted on 2008-04-30 16:15 万一 阅读(3750) 评论(2) 编辑 收藏
标签:窗口,Sender,异形,创建,TForm1,TObject,rgn,end,procedure 来源: https://blog.51cto.com/u_14617575/2746297