Gegenteil von OnMouseMove?

[AlexII]

Hallo,

mit dem Ereignis OnMouseMove lasse ich ein Label sichtbar machen wenn der Mauszeiger über ein bestimmtes Icon fährt. Was ist das Gegenteil von OnMouseMove, welches dann auftritt wenn der Mauszeiger sich über diesen Icon nicht befindet?

Bist jetzt hab ich das so gemacht:

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label1.Visible:=True;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label1.Visible:=False;
end;

Also wenn der Mauszeiger wieder auf dem Formular war wurde Label wieder versteckt.



Wie mache ich das aber anders, also professionell? Weil mein Weg scheint mich irgendwie unprofessionell zu sein.

Danke!

[Matze]

Gibt es bei der Komponente kein OnMouseEnter und OnMouseLeave?

Grüße, Matze

[SirThornberry]

Ein Gegenteil von OnMouseMove gibt es nicht. Es wird immer aufgerufen wenn sich die Maus bewegt und hat nichts damit zu tun ob die Maus den Bereich über einer Komponente betritt oder verlässt.
Was für dich interessant sein müsste wären die Ereignisse OnMouseEnter und OnMouseLeave. Wenn diese nicht vorhanden sind kann man diese durch abfangen der entsprechenden Messages auch nachrüsten.

[Aphton]

Schau dir mal OnMouseLeave von TLabel an

MfG

[mkinzler]

Gibt es nicht. Du könntest aber MouseEnter und MousLeave verwenden

[Aphton]

mkinzler -

Also in meiner TDE-Version gibts dieses Ereignis 8)

MfG

[AlexII]

Zitat von mkinzler:

Gibt es nicht. Du könntest aber MouseEnter und MousLeave verwenden

Die habe ich aber nicht. Hab Delphi 7 PE

Lässt sich das Problem vllt irgendwie anders lösen?

[AlexII]

Zitat von SirThornberry:

Wenn diese nicht vorhanden sind kann man diese durch abfangen der entsprechenden Messages auch nachrüsten.

Und wie geht das?

[Helmi]

Und wenn du es einfach so lässt wie du es schon hast?
Was spricht dagegen? - solange es funktioniert...

[AlexII]

Zitat von Helmi:

Und wenn du es einfach so lässt wie du es schon hast?
Was spricht dagegen? - solange es funktioniert...

Na ja ich dachte vllt gibt es was cleveres.