Hallo!
Ich lasse bei meinem Programm, wenn es minimiert wird, dass Icon in die TNA packen. Ein Anwender hat nun das Problem, dass das Icon bei einem Mouseover verschwindet und er kann nicht mehr auf das Programm zugreifen. Ich habe damals mal einen Code dafür gefunden.

uses CoolTrayIcon

markieren

Delphi-Quellcode:

const
  WM_TASKBAREVENT = WM_USER + 1;

markieren

Delphi-Quellcode:

   procedure WndProc(var Msg: TMessage); override;
   procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

zusammenfalten · markieren

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// auf Mausklicks reagieren, Fensterprozedur erweitern

procedure THauptform.WndProc(var Msg: TMessage);
var
  Point: TPoint;
begin
  // WM_USER + 20 ist unsere TNA Icon Nachricht
  if Msg.Msg = WM_USER + 20 then
  begin
    // im lParam steht die Nachricht
    case Msg.lParam of
      // rechte Taste für Menü
      WM_RBUTTONDOWN:
        begin
          SetForegroundWindow(Handle);
          GetCursorPos(Point);
          PopUpMenu1.PopUp(Point.X, Point.Y);
        end;
      // linke Taste
      WM_LBUTTONDOWN:
        begin
          //ShowMessage('links runter');
        end;
      // Doppelklick
      WM_LBUTTONDBLCLK:
        begin
          // Fenster anzeigen
          Hauptform.Show;
          // Icon entfernen
          Shell_NotifyIcon(NIM_DELETE, @IconData);
        end;
    end;
  end
  // Taskbar wurde im System registriert, Icon einfügen
  else if Msg.Msg = TaskBarNewReg then
  begin
    Shell_NotifyIcon(NIM_ADD, @IconData);
  end;
  inherited;
end;

////////////////////////////////////////////////////////////////////////////////
// beim Minimieren Form verstecken und Icon in die TNA

procedure THauptform.WMSysCommand(var Message: TWMSysCommand);
begin
  // Fenster wurde minimiert
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
  begin
    Hide;
    // Icon in der TNA anzeigen
    Shell_NotifyIcon(NIM_ADD, @IconData);
  end
  else
    inherited;
end;

////////////////////////////////////////////////////////////////////////////////
// Beim Beenden Icon entfernen

procedure THauptform.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon(NIM_DELETE, @IconData);
end;

////////////////////////////////////////////////////////////////////////////////
// Beim Erstellen des Formulares TNotifyIconData-Struktur initialisieren

Im Form-Create:

zusammenfalten · markieren

Delphi-Quellcode:

  // Message ID für Message merken, die gesendet wird, wenn die Taskbar im
  // System registriert wird.
  TaskBarNewReg := RegisterWindowMessage('TaskbarCreated');
  ///IconData Struktur füllen
  IconData.cbSize := SizeOf(IconData);
  IconData.Wnd := Handle;
  IconData.uID := 100;
  IconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
  IconData.uCallBackMessage := WM_USER + 20;
  IconData.hIcon := Application.Icon.Handle;
  IconData.szTip := 'VPlan+ v1.2.3 /8';
  // Icon einfügen. Bei Bedarf sofort
  //Shell_NotifyIcon(NIM_ADD, @IconData);

Er benutzt, genau wie ich, WindowsXP SP2.
Hat vlt jemand ähnlcihe Erfahrungen und kann mir sagen, wie man das Problem löst?

in aller Regel verschwindet das Icon wenn eine Interaktion mit dem Trayicon erfolgt (Mouseover etc.) und die Nachricht dafür nicht an das angegebene Handle gesendet werden kann. Das kommt vor wenn zum Beispiel das angegebene Handle aus deinem FormCreate nicht mehr existent ist weil intern das Fenster neu erzeugt wurde.

Was mich wundert. Du bindest in den Uses das CoolTrayIcon ein aber am Ende nutzt du die Komponente gar nicht sondern machst trotzdem alles direkt (Icon registrieren etc.). Wenn du die Komponente verwendest sollte dein Problem verschwunden sein weil die Komponente intern ein eigenes Fenster erzeugt was über die ganze Zeit erhalten bleibt und nicht durch Anzeigen des Fensters eventuell neu erstellt wird.

Mal ganz davon abgesehn, dass du vollkommen Recht hast, habe ich jetzt komplett auf's CoolTrayIcon umgestellt. Das Problem besteht bei diesem User aber immer noch.

Hat der User vielleicht Dein Programm komplett geschlossen?
Dann bleibt nämlich manchmal das Icon in der TNA, obwohl das Programm nicht mehr läuft.
Erst bei Drüberfahren merkt Windows schliesslich, dass dieses Icon entfernt werden muss.

Als guter Tip kommt da immer:
"Das Kreuz oben rechts soll das Programm in die TNA minimieren, nicht komplett schliessen".

Zitat von RavenIV:

Hat der User vielleicht Dein Programm komplett geschlossen?
Dann bleibt nämlich manchmal das Icon in der TNA, obwohl das Programm nicht mehr läuft.

Aber nur, wenn der Programmierer Mist gebaut hat.

Zitat:

Als guter Tip kommt da immer:
"Das Kreuz oben rechts soll das Programm in die TNA minimieren, nicht komplett schliessen".

Das war jetzt hoffentlich ironisch gemeint. Wenn ich auf das Keruz klicke, dann erwarte ich, dass sich das Hauptfenster schliesst und der Prozess beendet wird.

Zitat von Luckie:

Zitat von RavenIV:

Als guter Tip kommt da immer:
"Das Kreuz oben rechts soll das Programm in die TNA minimieren, nicht komplett schliessen".

Das war jetzt hoffentlich ironisch gemeint. Wenn ich auf das Keruz klicke, dann erwarte ich, dass sich das Hauptfenster schliesst und der Prozess beendet wird.

Meine User haben sich mehrfach beschwert, weil das so war.
Nun gehen alle meine TNA-Programm nicht mehr komplett weg, sondern werden in die TNA minimiert.

Und ich hab's so eigentlich auch lieber.

Zitat von RavenIV:

Und ich hab's so eigentlich auch lieber.

Ich auch. Dennoch sollte man diese Entscheidung dem Anwender überlassen.

Zitat von Luckie:

Zitat von RavenIV:

Hat der User vielleicht Dein Programm komplett geschlossen?
Dann bleibt nämlich manchmal das Icon in der TNA, obwohl das Programm nicht mehr läuft.

Aber nur, wenn der Programmierer Mist gebaut hat.

Der Fehler tritt nur bei dem einen Anwender auf, sonst hab ich bisher keinerlei solcher Meldungen bekommen und auch bei mir selbst läuft es (ebenfalls unter WinXP SP2) wunderbar. Das ist ja das seltsame. Und das Programm ist nicht abgestürzt, da es im Taskmanager immer noch vorhanden ist (denn darüber muss er das Programm dann zwangsweise beenden).