Application.Minimize in der Taskleiste abfangen ?

[Nils_13]

Hi,

kann man alles, was man bei Application.Minimize (eine Prozedur) ausführt auch ausführen, wenn der Benutzer das Programm via Taskleistenklick minimiert ? Form.OnHide verursacht mir irgenwie den Fehler, dass das TNA/Tray-Icon auch bei Taskleistenminimierung sichtbar ist (unerwünscht) Wenn man allerdings auf den Minimierbutton (TButton) klickt, funktioniert alles korrekt und Form.Hide ist auf den Button zugewiesen (über Obejectsinsepctor).

[inherited]

Fang doch die Message von Windows ab und reagiere drauf.

[Nils_13]

Wie heißt die ? WM_SIZE kennt Delphi nicht und SC_MINIMIZE ist ausschließlich der Button am Fensterrand.

[SirThornberry]

Warum nutzt du nicht einfach Application.OnMinimize?

[Nils_13]

Was dieser Post hier zu suchen hat weiß ich nicht, da ich es offensichtlich benutze. Da du wahrscheinlich etwas falsch verstanden hast:

Delphi-Quellcode:

// Buttonclick
// CTI = CoolTrayIcon
procedure TfrmMain.xiMinimizeClick(Sender: TObject);
begin
  if frmSetting.mtt then
  begin
    CTI.MinimizeToTray := True;
    FillPlayItems;
    CTI.IconVisible := True;
    CTI.HideMainForm;
    Application.Minimize;
  end else
  begin
    CTI.MinimizeToTray := False;
    Application.Minimize;
  end;
end;

procedure TfrmMain.CTIMinimizeToTray(Sender: TObject);
begin
  CTI.MinimizeToTray := True;
  FillPlayItems;
  CTI.IconVisible := True;
  CTI.HideMainForm;
end;

Wie am Code zu sehen ist, wird der Code nur bei einem Klick auf einen Button ausgeführt. Das Problem ist, dass es auch bei Taskleistenklicks passieren soll. Ich habe im OI einfach OnHide=xiMinimizeClick, aber da verhält sich die Anwendung sehr komisch. Falls es nicht anders geht, werde ich entweder ein kleines Beispiel schreiben oder gleich die RC6 des Players hochladen.

[SirThornberry]

deshalb nochmal die Frage. Warum verwendest du nicht Application.OnMinimize sondern TYourFormClass.OnHide? Bei Application.OnMinimize bekommst du jegliches Minimieren mit, egal ob dies per Button, Message oder Taskleisteneintrag ausgeführt wird.

[Nils_13]

Jetzt habe ich endlich verstanden, was du meinst. Danke!