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

[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?