Chris Crowe supplied the sample code:

> procedure TForm2.CreateParams(var Params: TCreateParams);
> begin
>   inherited CreateParams(Params);
>   Params.WndParent:= 0;
> end;

to get a window displaying on the task bar.

I have also found that if you want the window to appear on the Alt-Tab
list of running applications you to code this as follows:

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := HWND_DESKTOP;    // More elegant than 0
end;

Cheers, Max.


---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz

Reply via email to