Mega Code Archive

 

Categories / Delphi / Forms

 

Yuvarlak form olusyurma

procedure TForm1.FormCreate(Sender: TObject); var region: HRgn; begin { yuvarlak form olusturur } region:=CreateEllipticRgn(1,1,200,200); SetWindowRgn(handle, region, true); end;