Probleme beim Minimieren einer Anwendung

[elliot2extreme]

Hallo zusammen,

habe einen kleines Tool programmiert welches sich beim Minimieren im TNA ablegt.

Funktion zum Abfangen der Message:

Delphi-Quellcode:

procedure TfrmMain.WMSysCommand(var Message: TWMSysCommand);
begin
  if ((Message.CmdType and $FFF0) = SC_MINIMIZE) then
   begin
     Hide;
   end
  else
    Inherited;
end;

Es funktioniert auch alles soweit ausser man klick in der Taskleiste auf den Programmeintrag dann greift diese Messagefunktion nicht.

http://www.imaze.de/ebay/tna.jpg

Beim klicken an der rot markierten Stelle minimiert sich das Programm zwar aber es kommt nicht in die Messagefunktion von oben.

Warum ist das so oder was mache ich falsch?

Gruß

[sniper_w]

Zitat:

WM_SYSCOMMAND
A window receives this message when the user chooses a command from the window menu (also known as the System menu or Control menu) or when the user chooses the Maximize button or Minimize button.

Also keine Rede von TNA Bereich.

[alcaeus]

Hallo elliot,

ich weiß nicht ob du alles NonVCL programmierst, aber evtl. kannst du das OnMinimize-Event der TApplicationEvents-Komponente verwenden. Falsl du NonVCL programmierst, just ignore me ;)

Greetz
alcaeus

[elliot2extreme]

Zitat:

Zitat von sniper_w

Also keine Rede von TNA Bereich.

Wie kann ich darauf reagieren wenn der Anwender in der Taskleiste auf das Programm klick zum Minimieren? Siehe Screenshot rot markierter Bereich.

Danke und Gruß

Markus

[elliot2extreme]

Hat den keiner eine Lösung für mich auf welche Message ich dafür reagieren muss?

Gruß

[alcaeus]

Zitat:

Zitat von alcaeus

ich weiß nicht ob du alles NonVCL programmierst, aber evtl. kannst du das OnMinimize-Event der TApplicationEvents-Komponente verwenden. Falsl du NonVCL programmierst, just ignore me ;)

Ich schätze du hast mich wohl zu wörtlich genommen. Ist es nun Non-VCL oder nicht? Falls ja, dann noch ein Stichwort: WM_MINIMIZE :roll:

Greetz
alcaeus