FMX.Edit.TClearingEdit für VCL

[himitsu]

Ein TButtonedEdit, dort eine ImageList zuweisen, bei RightButton das Hint=Clear, Visiable=True und noch ein ImageIndex zuweisen.
Dann in OnRightButtonClick einfach nur (Sender as TEdit).Clear; rein und fertig.
(als abgeleitete Komponente gibt es kein Clickevent zum Überschreiben, also dort das Property OnRightButtonClick auf Stored False stellen und im Construktor eine lokale Ereignismethode zuweisen)

Bei DevExpress der TcxEdit ist auch ein ButtonEdit, nur kann man da als Button-Beschriftung auch einen Text nehmen, wie z.B. das [X] (Char ! ) aus dem Font Marlett
oder eines der Kreuze im Unicode https://de.wikipedia.org/wiki/Kreuzc...ichencodierung