Transparent forms

From: Brian (not_at_given.com)
Date: 05/25/04

Date: Tue, 25 May 2004 01:37:30 +0100

I've been playing with something I have form on the net, what I am trying to
create is a

program that has a graphic as the background and the form is transparent.
All I'm

trying to do it get away from square plane windows forms.

I have created a form, put a large graphic on it, and various edit boxes and
buttons.

I have the following code behind it.

procedure Tform1.CreateParams(var Params:TCreateParams);

Begin

inherited CreateParams(Params);

Params.ExStyle:=WS_EX_TRANSPARENT;

End;

procedure Tform1.FormCreate(Sender: TObject);

begin

form1.Brush.Style:=bsClear;

form1.BorderStyle:=bsNone;

end;

Now it does the trick, but (there's always a but) if I minimize the form and
then maximize

again the edit boxes and button show and the background image does not, or
if I put

another window over it and then remove the graphic does not redraw properly.

Any ideas?

Brian