Re: Forms


Posted by roland on May 14, 2000 at 21:58:13:

In Reply to: Forms posted by Hatemben on May 14, 2000 at 19:38:53:

This should do the trick :

procedure TForm1.FormCreate(Sender: TObject);
var Region : hRgn;
begin
Region := CreateEllipticRgn(0, 0, Width , Height);
SetWindowRgn(Handle, Region, True);
end;

It worked with Delphi4 and 5.
Hope this will help



Related Articles and Replies: