创建异形窗体.txt

来自「创建异形窗体可以创建出各种各样的异形窗体」· 文本 代码 · 共 10 行

procedure TForm1.FormCreate(Sender: TObject);
var
rgn:HRGN;
begin
rgn:=CreateEllipticRgn(0,0,450,450);
setwindowRgn(self.Handle,Rgn,true);
end;

end.