onMouseMove abfragen?

[smart]

Hallo Alle!

Wie kann ich abfragen ob ich z.b. über ein Panel mit der Maus bin, ohne zu klicken?

Gruß
Heike

[Blackheart]

Du hast Dir doch schon mit deinem Titel die Anwort selbst gegeben.

[smart]

Zitat von Blackheart:

Du hast Dir doch schon mit deinem Titel die Anwort selbst gegeben.

Nicht ganz. Ich brauche soetwas wie

if onMouseMove = True Then .... Gruß
Heike

[DGL-luke]

Hallo,

da brauchst du HitTesting:

Delphi-Quellcode:

if PtInRect
  (rect(Panel1.ClientToScreen(point(0,0)),
        Panel1.ClientToScreen(point(Panel1.Width-1,Panel1.Height-1))),
   Mouse.CursorPos) then
   begin

   end;

Sorry für das Monster... jetzt kommen bestimmt gleich 5 leute die dir sagen, wies viel schöner, kürzer und eleganter geht

[SirThornberry]

du hast doch bei dem Panel das OnMouseMove?! Ich versteh nicht warum du da nicht erkennen kannst das die Mouse bewegt wird, schließlich wird das Ereignis ausgelöst sobald sich die Maus über dem Panel bewegt.

[bitsetter]

Zitat von DGL-luke:

Sorry für das Monster... jetzt kommen bestimmt gleich 5 leute die dir sagen, wies viel schöner, kürzer und eleganter geht

Hi,

davon noch eine andere Version:

Delphi-Quellcode:

 if form1.ControlAtPos(form1.ScreenToClient(mouse.CursorPos), true, true)= Panel1  then
...

[cruiser]

form1 ist eine spezielle Instanz. lieber die aktuelle Instanz mit Self ansprechen:

Delphi-Quellcode:

if self.ControlAtPos(self.ScreenToClient(mouse.CursorPos), true, true) = Panel1  then
...

oder halt ganz drauf verzichten:

Delphi-Quellcode:

if ControlAtPos(ScreenToClient(mouse.CursorPos), true, true) = Panel1  then
...

[Blackheart]

Oder so
if FindDragTarget(Mouse.CursorPos, True)= Panel1 then...

[smart]

Vielen Dank für die Antworten!

Ich möchte, wenn ich über ein Panel mit der Maus gehe, was auslösen. Aber nur wenn ich über das Panel gehe. Das Panel ist so groß wie meine Form. Ich habe es versucht. Das auslösen klappt gut, aber das Gegenteil nicht. Versucht habe ich es u.A. so:

if FindDragTarget(Mouse.CursorPos, True)= Panel1 then Panel1.Color := cl Green else Panel1.Color := clBlack; Hier wird das Panel zwar grün gefärbt, aber wenn ich von dem Panel wegziehe wird es nicht schwarz. Was mache ich da falsch?

Gruß
Heike

[TeronG]

Wann bzw. wo frägst du denn ab!?