SC_MINIMIZE wird aus Taskbar nicht aufgerufen

[Mazel]

Hallo,

ich wollte mit Hilfe folgender Prozedur die Message SC_MINIMIZE abfangen, doch mir ist aufgefallen, das SC_MINIMIZE nur abgefragt wird, wenn ich auf den Minimze-Button in der Titelleiste des Programmes drücke, doppelklicke ich aber auf den Eintrag in der Taskbar, so dass es auch minimiert wird, passiert nichts:

Delphi-Quellcode:

private
  procedure WMSYSCOMMAND(var Msg: TWMSysCommand); Message WM_SYSCOMMAND;
 ..
 ..

procedure TForm1.WMSYSCOMMAND(var Msg: TWMSysCommand);
begin
  Case (Msg.CmdType and $FFF0) of
   SC_MINIMIZE: begin
                 CoolTrayIcon.IconVisible:=True;
                 Application.Minimize;
                end;
  end; 
 inherited;

Woran kann dies liegen?

Gruß
Mazel