Form.OnMouseMove

[egal]

Tja, vielleicht wurde dieses Thema schon mehrmals besprochen, aber ich bin irgendwie nicht fündig geworden.
Meine Form ist mit verschidenen Steuerelemeten überdeckt und wenn ich dieses Ereigniss Form.OnMouseMove versuche aufzurufen, dann klappt's nicht immer. Wie kann man da die Rheienfolge ändern? Zuerst sollte OnMouseMove von Form aufgerufen werden, nicht von Steuerelementen.

[Angel4585]

du meinst wenn du über ein Steuerelement fährst wird das Form.OnMouseMove nicht aufgerufen?

was genau willst du damit denn bezwecken?

[toms]

Hallo,

Setze eine TApplicationEvents Komponente auf deine Form und ueberpreufe im OnMessage Ereignis
die Nachrichten auf WM_MOUSEMOVE.

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message = WM_MOUSEMOVE) then
   begin
     Caption := Format('%d:%d', [Mouse.CursorPos.X, Mouse.CursorPos.Y]);
    end;
end;

[egal]

Zitat von Angel4585:

du meinst wenn du über ein Steuerelement fährst wird das Form.OnMouseMove nicht aufgerufen?

ja genau.
Ich habe einfach ein Problem mit einem Steuerelement, der reagiert nicht(Handle kaputt).
Und ich wollte mit der Mausbewegung dieses Steuerelement wieder aktivieren.

[egal]

Zitat von toms:

Hallo,

Setze eine TApplicationEvents Komponente auf deine Form und ueberpreufe im OnMessage Ereignis
die Nachrichten auf WM_MOUSEMOVE.

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message = WM_MOUSEMOVE) then
   begin
     Caption := Format('%d:%d', [Mouse.CursorPos.X, Mouse.CursorPos.Y]);
    end;
end;

danke, probiere gleich aus.

[egal]

jo, mit ApplicationEvents hat's wunderbar geklappt.

[Mikro]

Hi,

ich versuche sowas wie einen Bildschrimschoner zu bauen, zumindest ist das Prinzip gleich. Einfach, wenn die Maus nicht mehr bewegt wird, soll nach 1sek oder so irgendwas passieren. WOllte das mit dem OnMouseMOve und einem Timer machen, aber der setzt sich, sobald die Maus einmal bewegt wurde...
hatte das hier:

Delphi-Quellcode:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
     form2.close;
end;

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     timer1.interval:=6000;
end;

Also jedesmal, wenn die Maus bewegt wird, soll der Interval des Timers hochgesetzt werden, so dass er gar nciht ans Ende kommt. Aber das interessiert den Timer wohl im Betrieb nicht. Jmd ne andere Idee?

[bitsetter]

Hi,

eventuell ist ja GetLastInputInfo was für dich:
Wie lange keine Benutzereingaben mehr erfolgt sind

EDIT: hast du es schon mal so versucht?

Delphi-Quellcode:

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  timer1.Enabled:= false;
  timer1.Enabled:= true;
end;