BorlandTalk.com

Guest · Posted: Sat Jan 13, 2007 12:45 am Post subject: How to call CreateParams?

I have the following code in my form to make a window transparent:

procedure TfrmGuides.CreateParams(var Params: TCreateParams); //
override;
begin
inherited;
if (MakeTrans) then begin
params.exstyle := params.ExStyle or WS_EX_TRANSPARENT;
end;
end;

The problem is that while the form is open I need to be able to change
the value of MakeTrans and have that update the window. How do I call,
or force a call to CreateParams?

Guest · Posted: Sat Jan 13, 2007 3:05 am Post subject: Re: How to call CreateParams?

Solved it, I just call SetWindowLong instead.