wsMinimized doesn't dock Delphi 2 app on Win95 taskbar

Peter Below

Delphi Developer

Sun, 30 Jul 2000 03:00:00 GMT

wsMinimized doesn't dock Delphi 2 app on Win95 taskbar

Quote

> Something is does not look quite right when the Delphi 2 application is
> run/created with the WindowState := wsMinimized property for it's main
> form. Here is the result visually (see GIF)...

> The minimized Delphi 2 application doesn't dock itself on the Win95
> taskbar...well, sort of...It does and it doesn't. Not only is my Delphi
> application ("Another Notepad") window iconized on the Win95 taskbar, but
> there is also a second "icon?" (form caption?) that is resting on top of
> the Win95 taskbar.

Philip,

when you minimize a Delphi app the main form gets hidden, not minimized.
What is minimized is the Application.Window. But setting the form state to
wsMinimized actually minimized the form, which screws things up. Instead of
setting the form style do a

PostMessage( Handle, WM_SYSCOMMAND, SC_CLOSE, 0 );

in the formcreate method.

Peter Below (TeamB) 100113.1...@compuserve.com)

Philip Kapust

Delphi Developer

Mon, 31 Jul 2000 03:00:00 GMT

Re:wsMinimized doesn't dock Delphi 2 app on Win95 taskbar

Quote

> when you minimize a Delphi app the main form gets hidden, not minimized.
> What is minimized is the Application.Window. But setting the form state
to
> wsMinimized actually minimized the form, which screws things up. Instead
of
> setting the form style do a

> PostMessage( Handle, WM_SYSCOMMAND, SC_CLOSE, 0 );

> in the formcreate method.

Peter,

Thanks, but I this doesn't minimize the Delphi 2 application. Instead, it
closes the application! Am I doing something wrong? Here's my code:

procedure TForm1.FormCreate(Sender: TObject);
...
StartupInfo.cb := SizeOf(StartupInfo);
GetStartupInfo (StartupInfo);
if StartupInfo.dwFlags and STARTF_USESHOWWINDOW <> 0 then begin
case StartupInfo.wShowWindow of
SW_SHOWMINIMIZED, SW_SHOWMINNOACTIVE: begin
PostMessage( Handle, WM_SYSCOMMAND, SC_CLOSE);
end;
SW_SHOWMAXIMIZED: begin
WindowState := wsMaximized;
end;
end;
end;

Philip

Peter Belo

Delphi Developer

Mon, 31 Jul 2000 03:00:00 GMT