创建异形窗体.txt

创建异形窗体可以创建出各种各样的异形窗体

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

end.