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.