Delphi uygulama tepsisi simgesindeki balon ipuçları süresiz olarak açılmaya devam ediyor

Question

Bir tepsi simgesine simge durumuna küçültebilen bir Delphi 2006 uygulamasına sahibim ve çeşitli simge mesajlarını tepsi simgesinin üzerine bir balon ipucu aracılığıyla görüntüler.

Bazı durumlarda - ne zaman olduğunu bilmiyorum - önceden görüntülenen bir balon ipucu ortaya çıkıyor ve gitmiyor. Programlanan süre boyunca kapanır, kapanır, sonra hemen yeniden görünür.

Bu uygulamadan her zaman bir balon ipucu. Uygulama başka bir balon ipucu görüntülerse, bu program programlanan süre için gösterilirse, fantom ipucu devam eder.

İpucu, bir sırada kuyruğa sıkışmış ve kaldırılamıyormuş gibi. Biraz ilhamı olan birinin yokluğunda (uzun bir atış olduğunu anlıyorum ...), balon ipuçlarını nasıl temizleyeceğini bilen var mı?

Answer 1

Hangi TrayIcon kullanıyorsunuz? "Vcl.ExtCtrls" içindeki TCustomTrayIcon, Popup'u TrayIcon'a göndermek için TNotifyIconData kullanır. Bazı özellikler Windows Vista veya daha yenisini gerektirir.

public 
    FData: TNotifyIconData; //Winapi.ShellAPI 

procedure TCustomTrayIcon.ShowBalloonHint; 
begin 
    FData.uFlags := FData.uFlags or NIF_INFO; 
    FData.dwInfoFlags := Cardinal(FBalloonFlags); 
    Shell_NotifyIcon(NIM_MODIFY, FData); //Refresh(NIM_MODIFY); 
end; 

Sen neyin mesajlar trayicon ile göndermek ele alarak devam görebilirsiniz.

NIN_BALLOONSHOW  = WM_USER + 2; 
NIN_BALLOONHIDE  = WM_USER + 3; 
NIN_BALLOONTIMEOUT = WM_USER + 4; 
NIN_BALLOONUSERCLICK = WM_USER + 5; 

Answer 2

VB.NET'te aynı sorunla karşılaşıyorum. Benim uygulama systray bir balloontip üzerinden hata mesajları gösterir. Bir kerede birden fazla hata olduğunda, balloontip normal zaman aşımına yapışır ve hataları birbiri ardına gösterir. Balloontip'i göstermeye çalıştığınız gerçek sayısını hatırlatan bir çeşit tampon var gibi görünüyor. Yeni balloontips göstermeyi bırakır ve yeterince uzun süre beklerseniz sonunda durur.

Amacım, bir diğeri gelir gelmez baloncuğu kapatmak olurdu, ama henüz bunu yapmaya karar vermedim. Yani bu sadece yarım bir çözümdür.

---

[eklendi tam bir çözüm]

tam bir çözüm çok basit. Bunu yeni bir balloontip göstermeden önce yapın (Tepsi, TrayIcon/NotifyIcon'unuzdur).

Tray.Visible = true;