Maus Position in einem Message Handler

[Heinrich Wolf]

Hallo,

ich hab ein SysTray Icon mit

Code: Alles auswählen

Shell_NotifyIcon(NIM_Add, @NotifyIconData);

erzeugt. Eigentlich funktioniert diese Code Zeile nicht. Ich übergebe stattdessen eine PNotifyIconDataA Variable. Nun möchte ich auf einen Mausklick in dieses Icon reagieren. Folgenden Code habe ich ähnlich zu Delphi 5 erstellt. Aber mit Lazarus krieg ich immer (0, 0). Wie kriege ich (x, y) mit Lazarus?

Code: Alles auswählen

public
    procedure            wmUser(var Msg : tMessage); message wm_User;
 
  procedure GetCursorPos(var p : tPoint);
    begin
      p.X := CursorX;
      p.Y := CursorY;
    end;
 
procedure TParamForm.wmUser;
  var     Point : tPoint;
  begin
    case Msg.lParam of
      wm_rButtonUp,
      wm_lButtonUp:
        begin
          Point.X := 0;
          GetCursorPos(Point);
          PopupMenu.Popup(Point.X, Point.Y);
        end;
    end;
  end;

[Scotty]

Warum so "kompliziert", warum nur Windows? Ich habe unter "Additional" das TTrayIcon mit allen zugehörigen Events, in LMessages sind Nachrichten als LM_* kodiert.

[MAC]

Frag ich mich auch.
Unter Additional befindet sich (glaub schon seit 0.9.26) ein TTrayIcon.
Vorteil unter anderem:
- Funktioniert auf mehreren Betriebssystemen .
- Einfache "OnMouseMove" oder "OnMouseDown" ... Fuinktionen
- und warscheinlich noch ne ecke mehr

[Heinrich Wolf]

Warum?

Weil ich mit Delphi 5 angefangen hab. Da gibt's kein TTrayIcon. Ich kann's auch auf Delphi 4 compilieren. Bei Gelegenheit schau ich mir TTrayIcon an. Danke für diese Info! Aber ich wüsste trotzdem gerne, wie ich die Mauskoordinaten kriege.

Gruß
Heiner

[Scotty]

GetCursorPos() ist in der Unit LCLIntf definiert (Du überschreibst die Funktion zurzeit).
Bedenke vielleicht trotz deiner Delphi-Affinität OS unabhängige Funktionen zu erstellen. FPC ist gerade dadurch sehr mächtig, dass man Dinge auf verschiedenen OSen kompilieren kann.

[Socke]

GetCursorPos() ist in der Unit LCLIntf definiert (Du überschreibst die Funktion zurzeit).

Alternativ könnte man sich auch des Objektes Forms.Screen(s) bedienen.

[theo]

Aber ich wüsste trotzdem gerne, wie ich die Mauskoordinaten kriege.

Mouse.CursorPos.X
Mouse.CursorPos.Y

(unit Controls)

[Heinrich Wolf]

GetCursorPos() ist in der Unit LCLIntf definiert (Du überschreibst die Funktion zurzeit).
Bedenke vielleicht trotz deiner Delphi-Affinität OS unabhängige Funktionen zu erstellen. FPC ist gerade dadurch sehr mächtig, dass man Dinge auf verschiedenen OSen kompilieren kann.

Vielen Dank für diese Info. Beim Migrieren meines ersten Projekts hatte ich GetCursorPos vermisst und Lazarus war nicht intelligent genug, mir zu sagen, wo ich die finde. Und die Unabhängigkeit lebe ich, so weit ich kann. Schau Dir mal http://www.Wolf-Fuerth.de/takeeasy.src.zip an. Das läuft auf Delphi und Linux, natürlich auch auf Lazarus Win32. 64 Bit kann es aber sicher nicht, weil ich das nicht hab und die Internet Kommunikation auf IPV4 beschränkt ist.

[Heinrich Wolf]

Alternativ könnte man sich auch des Objektes Forms.Screen(s) bedienen.

In Screen hab ich das noch nicht gefunden.

[Heinrich Wolf]

Mouse.CursorPos.X
Mouse.CursorPos.Y

(unit Controls)

Vielen Dank für diese Info! Das verspricht wahrscheinlich am meisten Erfolg in einem MessageHandler.

[Socke]

Alternativ könnte man sich auch des Objektes Forms.Screen(s) bedienen.

In Screen hab ich das noch nicht gefunden.

Ich kann mich auch irren und eigentlich das von theo benannte Mouse-Objekt meinen.

Lazarus war nicht intelligent genug, mir zu sagen, wo ich die finde.

Lazarus hat einen Dialog um in Dateien zu suchen; mit maximal zwei Durchläufen kann man alle Lazarus und FreePascal-Quellen durchsuchen. Über die seitens Lazarus benötigte Intelligenz möchte ich nicht streiten

[Heinrich Wolf]

Lazarus hat einen Dialog um in Dateien zu suchen; mit maximal zwei Durchläufen kann man alle Lazarus und FreePascal-Quellen durchsuchen. Über die seitens Lazarus benötigte Intelligenz möchte ich nicht streiten

Das brauchst Du auch nicht. Ich kenne und liebe den Dialog, weil er auch *.inc usw. im Gegensatz zu Delphi und MS Suche findet. Ich bin halt verwöhnt von Delphi, und Lazarus hat ja auch noch ne 0 vor der .9.31 .

[Heinrich Wolf]

Ich hab jetzt LCLIntf eingebunden. Lazarus hat die beim Migrieren meines Projekts nicht automatisch ergänzt. Meine eigene GetCursorPos hab ich rausgeschmissen. Jetzt geht es. Mouse.CursorPos brauche ich nicht.