Einzelnen Beitrag anzeigen

Marphy

Registriert seit: 24. Feb 2005
162 Beiträge
 
Delphi 7 Professional
 
#13

Re: Systray-Icon in eigener Klasse

  Alt 7. Jun 2005, 16:13
Hallo Mika,
dann will ich mal ein bisschen klugscheißen

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

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

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...

Grüße, Marco
Marco
Wo ein Wille ist, ist auch ein Weg. Aber wo ein Weg ist, ist nicht unbedingt auch ein Wille...
  Mit Zitat antworten Zitat