Runde anstatt eckige Form bei Delphi4?

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 ? :smile:
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

guck ma hier: http://www.informatics.no/progvareOF.htm