Forms Delphi

  1. Home
  2. Delphi
  3. Forms
  4. 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;