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

[DeddyH]

Klar, wenn aber die Buttons dem Edit gehören, kann das denen doch sagen, was in deren OnClick passieren soll.

[Glados]

Ok nochmal anders:

WIE bekomme ich diese "Button" denn überhaupt da hin? Ich meine die GUI? Die Funktionalität ist mir gerade total egal.
Weil wenn es wirklich TButtons sind, kann ich das direkt vergessen denn das sieht ja hässlich aus.

[DeddyH]

DU hast doch die Buttons ins Spiel gebracht, wenn sie Dir nicht gefallen, style sie selbst oder nimm etwas anderes. Alternativ kannst Du auch etwas komplett Neues von z.B. TCustomControl ableiten, da bist Du in der Darstellung dann völlig frei.

[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 TButtonedEdit mit je einem optionalen Button links und rechts im Edit-Feld. Nicht ganz was du beschreibst, aber ist halt schon da.