(Gast)
n/a Beiträge
|
Wie mache ich ein elliptisches Formular?
8. Jun 2002, 14:43
Code:
procedure TForm1.FormCreate(Sender: TObject);
var
CLFRgn: HRgn;
begin
CLFRgn := CreateEllipticRgn(0, 0, Form1.Width, Form1.Height);
SetWindowRgn(Form1.Handle, CLFRgn, True);
end;
|
|
Zitat
|