Mega Code Archive

 

Categories / Delphi / Forms

 

Dairesel form

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