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