Mesala alttaki kod formu eliptik yapıyor...
Kod: Tümünü seç
procedure TForm1.FormCreate(Sender: TObject);
var
region: HRgn;
begin
region:=CreateRoundRectRgn(1, 1, 484, 312, 25, 25);
SetWindowRgn(handle, region, true);
end;
Kod: Tümünü seç
procedure TForm1.FormCreate(Sender: TObject);
var
region: HRgn;
begin
region:=CreateRoundRectRgn(1, 1, 484, 312, 25, 25);
SetWindowRgn(handle, region, true);
end;