Mega Code Archive

 

Categories / Delphi / Forms

 

Eliptik form olusturulmasi

procedure TForm1.FormCreate(Sender: TObject); var region: HRgn; begin { koselerden 25 pixel keser } region:=CreateRoundRectRgn(1, 1, 484, 312, 25, 25); SetWindowRgn(handle, region, true); end;