OnMouseLeave wird von OnMouseEnter aufgerufen

[Nico93]

Hallo zusammen,

ich habe mal wieder ein kleines Problem.
Ich wollte eine eigene Komponente entwerfen, die von einem TEdit erbt.
In diesem TEdit soll rechts am Rand eine kleine Lupe erscheinen, die wie ein Button benutzt werden kann.

Da man die Eigenschaft "Glyph" eines Buttons jedoch nich skalieren kann, habe ich einfach ein TImage benutzt, welches ein onclick event bekommt.
Zusätzlich wollte ich diesem TImage einen MouseOver Effekt beifügen, wie ihn die TButtons auch besitzen.

Damit man dem Image einen Border verpassen kann, habe ich dieses einfach auf einem Panel plaziert.
FSearchIcon = TImage mit der Lupe
FIconPanel = das Panel auf dem das Image sitzt

Die Methoden für den MouseOver Effekt sehen wie folgt aus:

Delphi-Quellcode:

procedure TSearchEdit.OnSearchButtonMouseEnter(Sender: TObject);
begin
  FSearchIcon.OnMouseLeave := nil;
  try
    FIconPanel.BorderStyle := bsSingle;
  finally
    FSearchIcon.OnMouseLeave := OnSearchButtonMouseLeave;
  end;
end;

procedure TSearchEdit.OnSearchButtonMouseLeave(Sender: TObject);
begin
  FIconPanel.BorderStyle := bsNone;
end;

Mein Problem ist nur, dass die Methode "OnSearchButtonMouseLeave" von der Methode "OnSearchButtonMouseEnter" direkt aufgerufen wird, sodass der Effekt eigentlich nichts bringt.
Dieses Verhalten habe ich auch schon festgestellt, wenn ich ein TImage auf ein normales Form setze und dann zwei Haltepunkte bei den beiden Methoden mache.

Hat hierzu jemand eine Idee?

Danke für die Hilfe

[Zacherl]

Liegt eventuell daran, dass du die Events jedes Mal neu zuweist. Mach dir stattdessen besser eine boolsche Variable, die sich merkt, ob sich die Maus grade innerhalb der Komponente befindet. Dann kannst du anhand dieses Wertes entsprechend im OnMouseLeave Event reagieren.

[Volker Z.]

Zitat:

Mein Problem ist nur, dass die Methode "OnSearchButtonMouseLeave" von der Methode "OnSearchButtonMouseEnter" direkt aufgerufen wird

Ich denke Du hast das Problem doch eigenlich schon erkannt. Lass jeden Event-Handler sein Ding tun.

Delphi-Quellcode:

procedure TSearchEdit.OnSearchButtonMouseEnter(Sender: TObject);
begin
  FIconPanel.BorderStyle := bsSingle
end;

procedure TSearchEdit.OnSearchButtonMouseLeave(Sender: TObject);
begin
  FIconPanel.BorderStyle := bsNone
end;

Gruß

[Nico93]

ok hat sich irgendwie erledgt.
Anscheinend funktioniert der MouseOver Effekt nur wenn das Bild auf dem Panel Align=alClient ist.

Trotzdem vielen Dank für die Hilfe