Forms Delphi

  1. Home
  2. Delphi
  3. Forms
  4. Dairesel form
procedure TForm1.FormCreate(Sender:TObject);
var
region: HRgn;
begin
region:=CreateEllipticRgn(1,1,200,200);
SetWindowRgn(handle, region, true);
end;