Taskbar icons

[1Derry]

I've got a SDI Delphi application. Is it possible to suppress the creation of a new icon in the taskbar every time a new form is created. I would just like the one icon which, when selected, displays all the created forms with the latest on top. Thanks.

 

[footpad]

lDerry,

Try adding (or calling) something like this to the formCreate events:

procedure TfrmMainForm.FormCreate(Sender: TObject);
var
   liWinStyle : Longint;
begin

  with Application do
  begin
     liWinStyle := getWindowLong( handle, GWL_EXSTYLE );
     showWindow( handle, SW_HIDE );
     setWindowLong( handle, GWL_EXSTYLE,
                    liWinStyle or WS_EX_TOOLWINDOW );
     showWindow( handle, SW_SHOW );
  end;

end;

This is what I use when creating applications that are hidden from the task bar. I'm not sure how you're getting your forms showing up, but the basic tachnique should be the same. You would probably have to pass the form's Handle in your case.

Hope this helps...

-- Lance

 

[1Derry]

Thanks for the reply Lance.

I copied your code into the Create procedure of my 'NewForm' word for word but no joy. It compiled and ran okay but still placed an additional icon in the task. Are there some parts I have to substitute to make it relevant to my app?

I call the form from another form as below like....

NewForm := TNewForm.Create(self);
NewForm.RunAProcedure;
NewForm.ShowModal;
NewForm.Free;

Thanks