Forms Delphi

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