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
