Ok then.
I gave some code to your Steve on Saturday that demonstrates this... It was
from one of the Delphi mags.
----- Original Message -----
From: Nahum Wild <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Tuesday, August 10, 1999 1:42 PM
Subject: RE: [DUG]: Transparent forms
> Why, it works fine without one?
>
>
> -----Original Message-----
> From: Peter G Jones [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, 11 August 1999 01:26
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: Transparent forms
>
>
> You also need a paint method.
>
>
> >From: Nahum Wild <[EMAIL PROTECTED]>
> >Reply-To: [EMAIL PROTECTED]
> >To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
> >Subject: RE: [DUG]: Transparent forms
> >Date: Tue, 10 Aug 1999 13:16:05 +1200
> >
> >I think the following code works, try sticking something on the form like
a
> >button so something can be seen.
> >
> >procedure TForm1.FormCreate(Sender: TObject);
> >var
> > FullRgn, ClientRgn, ButtonRgn: THandle;
> > Margin, X, Y: Integer;
> >begin
> > Margin := (Width - ClientWidth) div 2;
> > FullRgn := CreateRectRgn(0, 0, Width, Height);
> > X := Margin;
> > Y := Height - ClientHeight - Margin;
> > ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
> > CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
> > X := X + Button1.Left;
> > Y := Y + Button1.Top;
> > ButtonRgn := CreateRectRgn(X, Y, X + Button1.Width, Y +
Button1.Height);
> > CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR);
> > SetWindowRgn(Handle, FullRgn, True);
> >end;
> >
> >
> >Try looking up 'CreateRectRgn' and 'SetWindowRgn' in the Win32 Api help
and
> >they will explain how it all works. They are normally used for changing
> >the
> >shape of a form.
> >
> >
> >Nahum Wild
> >Switch Power Systems
> >Christchurch
> >New Zealand
> >
> >
> >-----Original Message-----
> >From: gajo [mailto:[EMAIL PROTECTED]]
> >Sent: Tuesday, 10 August 1999 12:18
> >To: Multiple recipients of list delphi
> >Subject: [DUG]: Transparent forms
> >
> >
> >I want to draw custom shapes and images on my desktop (like some
> >screensavers do), and I figured out this would be possible only if the
Form
> >was transparent and every other component on it normal as is. So my
> >question
> >is: how can I make my form transparent or is there any other
> >way to draw on the screen/desktop and make that disappear after I click
on
> >a
> >button (for example)?
> >
>
>---------------------------------------------------------------------------
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
>
>---------------------------------------------------------------------------
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
>
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
