i want make form in Circle

i want make form in circle or other form, not rectangle (Ex Norton Crash Guard)
jamiguelAsked:
Who is Participating?
 
guntherDSConnect With a Mentor Commented:
Here's a tip: more than one year ago there were some articles in 'The Delphi Magazine' about this topic, maybe you can find some useful information in that article (Issue 25, September 1997).
The complete code for this topic can be found on the site: www.itecuk.com

0
 
kretzschmarCommented:
hi  jamiguel,

look at CoolForm on
Delphi Super Page
or
Torry Pages

other Experts can give the URL
(i haven't it on this PC)

meikl
0
 
erajojCommented:
It's very, very easy:

procedure TMainForm.FormCreate(Sender: TObject);
var
  Region : hrgn;
begin
  Region := CreateEllipticRgn(0, 0, ClientWidth, ClientHeight);
  SetWindowRgn(Handle, Region, True);
end;

That's it.

/// John
0
 
erajojCommented:
Did the answer really help you?
I searched the "www.itecuk.com"-site and didn't find any source code at all!?
Just making sure you get what you came for...

/// John

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.