创建异形窗口[1]

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 &＃61; class(TForm)Button1: TButton;Button2: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
beginButton1.Caption :&＃61; &＃39;创建&＃39;;Button2.Caption :&＃61; &＃39;退出&＃39;;
end;procedure TForm1.Button1Click(Sender: TObject);
varrgn: HRGN;
beginrgn :&＃61; CreateEllipticRgn(0, 0, Width, Height);SetWindowRgn(Handle, rgn, True);
end;procedure TForm1.Button2Click(Sender: TObject);
beginClose;
end;end.