Edits um "Clear"-Button / Passwort-anzeigen-Button erweitern

[Glados]

Was ich meine ist sowas hier

[DeddyH]

OK, dann malst Du eben ein Bildchen an den rechten Rand und musst ggf. den Eingabebereich um dessen Breite (ggf. zzgl. etwas Offset) verkleinern.

[Glados]

Das ist jetzt aber blöd.

Denn wie soll man denn bei einer solchen Unit ein Bild laden, ohne eine ImageList etc zu haben?
Außer einer Resource-Datei fällt mir da gerade nix ein.

Das hier ist nur ein test

Delphi-Quellcode:

unit EditCustom;

interface

uses
 Vcl.StdCtrls;

type
 TEditCustom = class(TEdit)
 public
  procedure Click; override;
 end;

implementation

procedure TEditCustom.Click;
begin
 Self.Text := 'clicked';

 inherited;
end;

end.

Delphi-Quellcode:

var
 EditCustom: TEditCustom;
begin
 EditCustom := TEditCustom.Create(Panel18);
 EditCustom.Parent := Panel18;

 EditCustom.Top := 50;
 EditCustom.Left := 10;
end;

Zitat:

und musst ggf. den Eingabebereich um dessen Breite (ggf. zzgl. etwas Offset) verkleinern.

Eingabebereich verkleinern oder Edit verkleinern?

[Uwe Raabe]

Delphi bietet von Haus aus das Control

Delphi-Quellcode:

TButtonedEdit

mit je einem optionalen Button links und rechts im Edit-Feld. Nicht ganz was du beschreibst, aber ist halt schon da.

[Glados]

Zitat:

Nicht ganz was du beschreibst, aber ist halt schon da.

Ist nicht ganz was ich beschreibe, weil ich zu doof zum Tippen und Schreiben bin.

Ansonsten ist das genau das was ich gesucht habe.

Bis auf, dass das Icon kein Mouse-Over-Event hat ist alles gut.

[Uwe Raabe]

Zitat:

Zitat von Glados (Beitrag 1385986)

Bis auf, dass das Icon kein Mouse-Over-Event hat ist alles gut.

Stimmt. Man kann lediglich einen separaten HotImageIndex angeben, um das etwas hervorzuheben.

[Glados]

Wird wohl reichen. Besser als nichts. Danke!