L LeeChange Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-07 #3 procedure TForm1.Button1Click(Sender: TObject); var Rgn: HRgn; begin Rgn:=CreateRoundRectRgn(0, 0, Width, Height, 50, 50); SetWindowRgn(Handle, Rgn, True) end;
procedure TForm1.Button1Click(Sender: TObject); var Rgn: HRgn; begin Rgn:=CreateRoundRectRgn(0, 0, Width, Height, 50, 50); SetWindowRgn(Handle, Rgn, True) end;