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

[Glados]

Ich würde allen meines Edits gerne einen Clear- und Passewort-anzeigen-Button verpassen.
Am besten so, dass es aussieht als ob es zum Edit dazugehört.

-------------------------------------
|---------Edit1-----------| X | Y |
-------------------------------------

Wie würdet ihr sowas lösen? Bzw gibt es dafür bereits fertige Lösungen?

[sko1]

Ein TmyEdit vom TEdit ableiten, geht recht einfach...

Ciao
Stefan

[Glados]

Erm also.. wie soll ich sagen... das beantwortet meine Frage in etwa um 0% :thumb:

[DeddyH]

Soll heißen: leite Dir eine Klasse von T(Custom)Edit ab und implementiere dort Deine Buttons.

[Glados]

Es geht mir nicht um die Ableitung sondern um die Sache mit den Buttons. Genau davon hab ich ja keine Ahnung.

Eine fertige Lösung wäre mir am liebsten.

[DeddyH]

Dann schau doch auf Torry o.ä. nach, wenn Du da nichts findest, ist wohl DIY angesagt, dann wären wir aber wieder bei einer eigenen Ableitung.

[Glados]

Torry hat nichts, da war ich schon.

Ja, Ableitung hin oder her. Aber wie wird das mit Clear und Show/hide password gemacht? Das muss ja irgendwie nahtlos ans Edit geheftet werden.

[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

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!