Hi,
ich versuche schon die ganze Zeit bei Delphi4 anstatt einer eckigen eine runde Form zu bekommen.
Wie geht das?Irgendwie muss es ja schließlich möglich sein, oder ?
Vielen Dank schon mal im Voraus!
Bye
Wolfgang
Hallo!
Versuchs mal hiermit:
procedure TForm1.FormCreate(Sender: TObject);
var
HR: HRgn;
n:array[0…3] of TPoint;
begin
n[0]:=Point(Width div 2,1);
n[1]:=Point(1, Height div 2);
n[2]:=Point(Width div 2,Height);
n[3]:=Point(Width, Height div 2);
HR:= CreateEllipticRgn (0, 0, Width, Height);
SetWindowRgn(Handle, HR, True);
end;
Müsste eigendlich klappen!
MfG
Florian
Hi Florian,
wozu brauchst Du das Punktefeld?
Manfred