[CLOSED] Trayicon

[pcurtis]

Does anyone know how to change the Balloon timeout in the trayicon component?

It doesnt seem to work

[loaded]

I do not know why ; if visibility is on, the timeout stays fixed. But disabling this visibility causes the timeout to work properly.

Code: Pascal  [Select][+][-]

1. TrayIcon1.Visible:=false;

[pcurtis]

Thanks.

Nope thats not it, and when visibility:=false the balloon dialogue is missing

[dietmar]

Yep, the "floating balloon" coming from right to left seems only to work with visibility set to true...

--Dietmar
 

[loaded]

I was showing the errors that occurred while operating in the database via the trayicon. However, when more than one error occurred, an undesirable situation like this one occurred. After doing some research on the subject;
https://stackoverflow.com/a/26548309  Based on relevant information.
 

Doesn't fix the timeout issue!
But it does the simultaneous balloon display without any problems.

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. begin
3.   TButton(Sender).Caption:=inttostr(GetTickCount);
4.   TrayIcon1.Visible:= false; //
5.   TrayIcon1.Visible:= true;  // close and open usually works, it works here as well.
6.  
7.   TrayIcon1.BalloonTitle:='Real Time';
8.   TrayIcon1.BalloonFlags:=bfInfo;
9.   TrayIcon1.BalloonHint:=TButton(Sender).Caption;
10.   TrayIcon1.ShowBalloonHint;
11. end;

My problem is solved, I hope it will work for you too.

[loaded]

jamie, yes, you may be right, but sometimes things don't go the way you want, then ;
Is it a trick, an idea, a path to the goal? they mingle with each other.
I guess that's one of those situations.