Maus über Komponente

[MCXSC]

Hallo,

ich habe folgendes Problem:

Es existiert eine Form, darauf ist ein TImage (mit Bild ;-)). Unten in der Ecke wiederrum ist ein kleiner Button. Dieser soll jedoch nur dann angezeigt werden, wenn der Mauszeiger sich auf eben diesem befindet. Klappt (mit den JvCL) soweit über OnMouseEnter und OnMouseLeave und eben Button.Visible. Das Problem: Das Programm reagiert wohl nicht auf das OnMouseLeave, denn der Button bleibt weiterhin sichtbar (trotz Button.Visible := False).

Kennt jemand eine Lösung für das Problemchen? :)

MCXXSC

[Dunkel]

Hallo!

Wird die Methode OnMouseLeave auch wirklich beim Verlassen des TImage aufgerufen? Ich habe schon des öfteren Probleme damit gehabt, wenn man den Cursor ruckartig (= schnell) aus einem Control bewegt; nicht immer wurde OnMouseLeave gefeuert.
Quick and Dirty: der TForm (und allen Komponenten) eine OnMouseEnter-Eventbehandlung "spendieren" (diese kann ja auch gut und gerne ein und die Selbe sein) und darin Dein Button.Visible := False; aufrufen.

[marabu]

Hallo Marcel,

einen Button auf einem Image sichtbar machen, indem du mit der Maus über ihn fährst? Packe das Image mit Align=alClient auf ein Panel, setze den Button mit Parent=Panel an die gewünschte Stelle und dann:

Delphi-Quellcode:

procedure TDemoForm.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  with Button do
    Visible := PtInRect(BoundsRect, Point(X, Y));
end;

Freundliche Grüße

[Mike07]

Nette Methode - werde ich mir merken!
Das ist dann der Ersatz für das MouseOver-Ereignis, welches ich immer gesucht habe ^^ :-D