Anwendung in die Systemtray minimieren

[Muetze1]

Moin!

Ja, ich habe eine Idee. Wenn du das SC_MINIMIZE nicht abfängst sondern mit inherited weiterleitest, dann passiert sowas. Ich habe mein Projekt original von der Website genommen und folgendes geändert:

Delphi-Quellcode:

Procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
Begin
  If ( ( Message.CmdType And $FFF0 ) = SC_MINIMIZE ) Then
  Begin
    Hide;
    TaskBarAddIcon;
  End
  Else
    Inherited;
End;

zu

Delphi-Quellcode:

Procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
Begin
  If ( ( Message.CmdType And $FFF0 ) = SC_MINIMIZE ) Then
  Begin
    Hide;
    TaskBarAddIcon;
  End;
//  Else
    Inherited;
End;

und es trat bei mir der beschriebene Effekt auf. Du rufst also anscheinend das Inherited auf und dadurch kommt es dazu.

MfG
Muetze1