Systray-Icon in eigener Klasse

[barf00s]

hab ich auch nicht abgestritten - jedoch ist dieser weg besser als mit den windowprocs von irgendwelchen forms zumzuspieln - find ich :)

[mika]

Hab mir da jetzt was zusammengebastelt das sich auch kompilieren lässt ;)

Allerdings wenn ich mit der Maus auf mein Symbol klicke gibt er in Msg.Msg einen
anderen Code an als den den ich in WM_TASKBAREVENT durch das RegisterWindowMessage
bekommen habe: Will heissen er springt in der CallbackProzedur nicht in den richtigen
Teil der If Abfrage.

Hier mal mein jetziger Code:

Delphi-Quellcode:

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Unit mit Methoden um ein Icon in der Trayleiste zu plazieren und
  auf dessen Ereignisse zu achten.
***************************************************************************** *)
unit uSystray;

interface

uses ShellApi, Windows, Messages, Forms, Menus, Classes;

Const
  FMyCallbackMessage = 'TSystrayCallback';

Type
  TSystrayIcon = Class

    FHandle: THandle;
    WM_TASKBAREVENT: Cardinal;
    WM_TASKBARCREATED: Cardinal;

    FTrayicon: TNotifyIconData;
    FTrayDescription: String;
    FPopupMenu: TPopupMenu;

    Constructor newCreate(IconHint: String);
    Destructor newDestroy;

    private
      Procedure MessageHandler(Var Msg: TMessage);
      Procedure AddIconToSystray(Description: String);
      Procedure RemoveIconFromSystray;
  end;

implementation

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Erzeugt ein Objekt der Klasse und erstellt das Icon im Systray,
  falls der Explorer abstürzt wird das Icon beim Start wieder hergestellt.
***************************************************************************** *)
Constructor TSystrayIcon.newCreate(IconHint: String);
Begin
  Inherited Create;
  FHandle := AllocateHWnd(MessageHandler);
  WM_TASKBAREVENT := RegisterWindowMessage(fMyCallbackMessage); // Hier bekomme ich einen
  // Wert von 49774 zurück 
  WM_TASKBARCREATED := RegisterWindowMessage('TaskbarCreated');
  FTrayDescription := IconHint;
  AddIconToSystray(FTrayDescription);
End;

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Zerstört das Objekt und entfernt das Icon aus dem Systray
***************************************************************************** *)
Destructor TSystrayIcon.newDestroy;
Begin
  DeallocateHWnd(FHandle);
  RemoveIconFromSystray;
  Inherited Destroy;
End;

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Reagiiert auf Mausklicks auf das Trayicon und zeigt ein
  Menü an bei Rechtsklick
***************************************************************************** *)
Procedure TSystrayIcon.MessageHandler(Var Msg: TMessage);
Var
  ptCursor: Tpoint;

Begin
  if Msg.Msg = WM_TASKBAREVENT then // Wenn ich mit der Maus auf mein Symbol klicke
  // Bekomme ich in Msg.Msg den Wert 28 zurück :(
  begin
    GetCursorPos(ptCursor);
    if Assigned(FPopupMenu) then
      FPopupMenu.Popup(ptCursor.X, ptCursor.Y);
  end
  else if Msg.Msg = WM_TASKBARCREATED then
  begin
    AddIconToSysTray(FTrayDescription);
  end;
End;

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Fügt dem Systray ein neues Icon hinzu das auf Mausklicks reagiert um
  ein Menü anzuzeigen.
***************************************************************************** *)
Procedure TSystrayIcon.AddIconToSystray(Description: String);
begin
  Fillchar(FTrayicon.szTip, SizeOf(FTrayicon.szTip), 0);

  Move(Description[1], FTrayicon.szTip, Length(Description));
  FTrayicon.cbSize := SizeOf(FTrayicon);
  FTrayicon.Wnd := Application.Handle;
  FTrayicon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  FTrayicon.hIcon := Application.Icon.Handle;
  FTrayicon.uID := 27787552;
  FTrayicon.uCallbackMessage := WM_TASKBAREVENT; 

  Shell_NotifyIcon(NIM_DELETE, @FTrayicon);
  Shell_NotifyIcon(NIM_ADD, @FTrayicon);
end;

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Entfernt das Trayicon aus dem Systray.
***************************************************************************** *)
Procedure TSystrayIcon.RemoveIconFromSystray;
Begin
  Shell_NotifyIcon(NIM_DELETE, @FTrayicon);
End;

end.

[Marphy]

Hallo Mika,
dann will ich mal ein bisschen klugscheißen :mrgreen:

Zitat:

const
FMyCallbackMessage

Eine globale Konstante sollte man klein F voranstellen (kein Klassen-Member).

Zitat:

... = 'TSystrayCallback'

Eine Windows Message ist kein Delphi-Objekt... :wink:

Zitat:

WM_TASKBAREVENT := RegisterWindowMessage(fMyCallbackMessage);
// Hier bekomme ich einen Wert von 49774 zurück

Was diese API bezweckt weißt du ja... Der Wert 49774 ist nicht konstant, d.h. dieser variiert und ist nicht übertragbar.

Zitat:

if Msg.Msg = WM_TASKBAREVENT then
// Wenn ich mit der Maus auf mein Symbol klicke Bekomme ich in Msg.Msg den Wert 28 zurück :(

Dies ist der Wert von der Windows Botschaft WM_ACTIVATEAPP... Hat also nicht direkt was mit der Taskbar zu tun, sondern wohl eher mit FPopupMenu.Popup?

Zitat:

begin
GetCursorPos(ptCursor);
if Assigned(FPopupMenu) then
FPopupMenu.Popup(ptCursor.X, ptCursor.Y);
end

Hier solltest du vorher den LParam abfragen... :warn:

Grüße, Marco

[barf00s]

Zitat:

Zitat von Marphy

GetCursorPos(ptCursor);
if Assigned(FPopupMenu) then
FPopupMenu.Popup(ptCursor.X, ptCursor.Y);
end

ach jopp stimmt, hab ich im traan vergessen noch lparam fürs WM_L/RBUTTONDOWN und so zu prüfen...

der rest funktioniert ansonsten prima

[mika]

Zitat:

Zitat von Marphy

Hallo Mika,
dann will ich mal ein bisschen klugscheißen :mrgreen:

Jaja immer erstma auf die Kacke haun :D

Zitat:

const
FMyCallbackMessage
Eine globale Konstante sollte man klein F voranstellen (kein Klassen-Member).

Alles klar merk ich mir, aber mit den Namenskonventionen hab ichs noch nciht so ganz

Zitat:

... = 'TSystrayCallback'
Eine Windows Message ist kein Delphi-Objekt... :wink:

Mir ist grad nix anderes eingefallen und das klang so gut :)

Zitat:

WM_TASKBAREVENT := RegisterWindowMessage(fMyCallbackMessage);
// Hier bekomme ich einen Wert von 49774 zurück
Was diese API bezweckt weißt du ja... Der Wert 49774 ist nicht konstant, d.h. dieser variiert und ist nicht übertragbar.

Mir schon klar war nur als Beispiel damit man sieht das der Wert n anderer ist
als den den ich zurückbekomme.


Schönen Gruß und Danke für eure Hilfe ich guck mal ob ichs mit den ganzen Tipps hinbekomme,
meld mich nachher nochmal.

[mika]

Hmmmmm


nichtsdestotrotz bekomme ich es irgendwie nicht hin das in Msg.Msg der Wert steht den ich mittels
RegisterWindow ermittelt und beim erzeugen des Icons in uCallbackMessage eingetragen habe!

Das mit dem LParam abfragen ist erst mal nicht so wichtig ich will erstmal nur das er merkt:
Ahhh das Icon das angeklickt wurde ist meins also muss ich auch was machen!

[Marphy]

Hallo mika,
war nich bös gemeint :wink:

Zitat:

Das mit dem LParam abfragen ist erst mal nicht so wichtig ich will erstmal nur das er merkt:
Ahhh das Icon das angeklickt wurde ist meins also muss ich auch was machen!

Platziere mal ein Label auf dem Formular und schreibe hinter der Message-Abfrage:

Delphi-Quellcode:

Label1.Caption := 'Tray Message.';

Wenn das Label beim Überfahren resp. Anklicken des Tray-Icons seine Beschriftung nicht ändert, melde dich nochmal... :nerd:

Gruß, Marco

[mika]

Ich fass sowas auch nciht bös auf ;)

So nu aber nochmal zur Problematik

Delphi-Quellcode:

Procedure TSystrayIcon.MessageHandler(Var Msg: TMessage);
Var
  ptCursor: Tpoint;

Begin
  if Msg.Msg = FTaskbarEvent then
  begin
    If Msg.LParam = WM_RBUTTONDOWN then
    begin
      GetCursorPos(ptCursor);
      if Assigned(FPopupMenu) then
        FPopupMenu.Popup(ptCursor.X, ptCursor.Y);
    end
    else If Msg.LParam = WM_LBUTTONDOWN then
    begin
      MessageBox(Application.Handle, 'Test', 'test', MB_OK)
    end;
  end
  else if Msg.Msg = FTaskbarCreated then
  begin
    AddIconToSysTray(FTrayDescription);
  end;
End;

Er geht in die Prozedur wenn ich auf irgendein(!) Icon in dem Systray klicke, mein Problem
ist halt bloss das in Msg.Msg immer 28 drinsteht, egal ob ich auf mein Icon oder das von
der Lautstärkeregelung von Windows klicke.... Ergo ist (Msg.Msg = FTaskbarevent) nie TRUE :(

[mika]

Na alsooooo jetzt hab ichs :)

mein Fehler war das ich beim erstellen des Icons als Handle das Handle der Applikation
angegeben habe nicht das Handle das ich bei newCreate für den MessageHandler ermittelt habe!

Hier noch mal der Code falls den jemand braucht, ich fang jetzt an da mal n bisschen
Funktionalität einzubasteln :)


Und dank an alle die sich mit mir bemüht haben :D

Delphi-Quellcode:

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Unit mit Methoden um ein Icon in der Trayleiste zu plazieren und
  auf dessen Ereignisse zu achten.
***************************************************************************** *)
unit uSystray;

interface

uses ShellApi, Windows, Messages, Forms, Menus, Classes, StdCtrls;

Type
  TSystrayIcon = Class

    FHandle: Cardinal;
    FOldWndProc: TWndMethod;
    FTaskbarEvent: Cardinal;
    FTaskbarCreated: Cardinal;

    FTrayicon: TNotifyIconData;
    FTrayDescription: String;
    FPopupMenu: TPopupMenu;

    Constructor newCreate(IconHint: String);
    Destructor newDestroy;

    private
      Procedure MessageHandler(Var Msg: TMessage); 
      Procedure AddIconToSystray(Description: String);
      Procedure RemoveIconFromSystray;
  end;

implementation

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Erzeugt ein Objekt der Klasse und erstellt das Icon im Systray,
  falls der Explorer abstürzt wird das Icon beim Start wieder hergestellt.
***************************************************************************** *)
Constructor TSystrayIcon.newCreate(IconHint: String);
Begin
  Inherited Create;
  FHandle := AllocateHWnd(MessageHandler);
  FTaskbarEvent := RegisterWindowMessage('SystrayCallback');
  FTaskbarCreated := RegisterWindowMessage('TaskbarCreated');
  FTrayDescription := IconHint;
  AddIconToSystray(FTrayDescription);
End;

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Zerstört das Objekt und entfernt das Icon aus dem Systray
***************************************************************************** *)
Destructor TSystrayIcon.newDestroy;
Begin
  DeallocateHWnd(FHandle);
  RemoveIconFromSystray;
  Inherited Destroy;
End;

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Reagiert auf Mausklicks auf das Trayicon und zeigt ein
  Menü an bei Rechtsklick
***************************************************************************** *)
Procedure TSystrayIcon.MessageHandler(Var Msg: TMessage);
Var
  ptCursor: Tpoint;

Begin
  if Msg.Msg = FTaskbarEvent then
  begin
    If Msg.LParam = WM_RBUTTONDOWN then
    begin
      GetCursorPos(ptCursor);
      if Assigned(FPopupMenu) then
        FPopupMenu.Popup(ptCursor.X, ptCursor.Y);
    end
    else If Msg.LParam = WM_LBUTTONDOWN then
    begin
      MessageBox(Application.Handle, 'Test', 'test', MB_OK)
    end;
  end
  else if Msg.Msg = FTaskbarCreated then
  begin
    AddIconToSysTray(FTrayDescription);
  end;
End;

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Fügt dem Systray ein neues Icon hinzu das auf Mausklicks reagiert um
  ein Menü anzuzeigen.
***************************************************************************** *)
Procedure TSystrayIcon.AddIconToSystray(Description: String);
begin
  Fillchar(FTrayicon.szTip, SizeOf(FTrayicon.szTip), 0);

  Move(Description[1], FTrayicon.szTip, Length(Description));
  FTrayicon.cbSize := SizeOf(FTrayicon);
  FTrayicon.Wnd := FHandle;
  FTrayicon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  FTrayicon.hIcon := Application.Icon.Handle;
  FTrayicon.uCallbackMessage := FTaskbarEvent;
  FTrayicon.uID := 27787552;

  Shell_NotifyIcon(NIM_DELETE, @FTrayicon);
  Shell_NotifyIcon(NIM_ADD, @FTrayicon);
end;

(* *****************************************************************************
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Entfernt das Trayicon aus dem Systray.
***************************************************************************** *)
Procedure TSystrayIcon.RemoveIconFromSystray;
Begin
  Shell_NotifyIcon(NIM_DELETE, @FTrayicon);
End;

end.

[barf00s]

-.-°

auf das newCreate / newDestroy solltest verzichten und stattdessen die methoden "Create" und "Destroy" auch benutzen die schon vorhanden sind, denn sonst würdest du deinen "newDestroy" in etwa direkt aufrufen, und DAS soll man vermeiden...

Delphi-Quellcode:

public
  constructor Create(const AHint: string);
  destructor Destroy; override;
end;

implementation

und dann hier dementsprechend definieren... ohne dieses "new" davor :)