In der
VCL-Klasse is halt nix für drin.
Aber schau doch mal, ob du bei Windows was findest?
Shell_NotifyIcon und NIN_BALLOONHIDE klang nett.
Nja, dann noch der Spaß, dass die Klasse bissl scheiße designt ist.
Hab mal was versucht ... half aber noch nix.
Delphi-Quellcode:
uses
...
Winapi.ShellAPI;
type
TTrayIcon =
class(
Vcl.ExtCtrls.TTrayIcon);
type
TForm27 =
class(TForm)
TrayIcon1: TTrayIcon;
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
...
procedure TForm27.Button1Click(Sender: TObject);
var
Data: TNotifyIconData;
begin
TrayIcon1.BalloonHint := '
This is a Balloon Hint';
TrayIcon1.BalloonTitle := '
Hint Title';
TrayIcon1.ShowBalloonHint;
Application.ProcessMessages;
Sleep(2000);
Data := TrayIcon1.Data;
Data.uFlags := Data.uFlags
and not NIF_INFO;
//Shell_NotifyIcon(NIM_MODIFY, @Data);
Shell_NotifyIcon(NIN_BALLOONHIDE, @Data);
end;