Application.Minimize in der Taskleiste abfangen ?

[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.