Ich habe ein Programm mit Tray Icon geschrieben
Jetzt möchte ich, dass es bei einem Klick mit der mittleren Maustaste auf das Icon geschlossen wird
Das funktioniert zwar aber es schließt sich jetzt dummerweise auch bei einem Klick mit der linken Maustaste
Delphi-Quellcode:
procedure TForm5.TrayIcon1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (button = mbmiddle) then
begin
application.terminate;
end
else
begin
trayicon1click(self);
end;
end;
Hat einer ne Ahnung warum dem so ist?
Danke schon mal im Voraus