Einzelnen Beitrag anzeigen

Muetze1
(Gast)

n/a Beiträge
 
#9

Re: Anwendung in die Systemtray minimieren

  Alt 19. Mai 2005, 12:35
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
  Mit Zitat antworten Zitat