Löschen Button nur einmal implementieren

[delphicoder123]

Hallo,
ich habe mehrere Editfelder mit dazugehörigem Löschen Button.
Wenn auf Button1 geklickt wird, dann soll Edit1 gelöscht werden etc.
Das Formular sieht so aus:

https://www.delphipraxis.net/attachm...1&d=1551913338

Ich möchte aber nicht 4 Mal, den Löschen Button implementieren sondern nur einmal.
Ist das irgendwie möglich?

Vielen Dank

[DieDolly]

Auf die Schnelle würde ich sowas hier vielleicht machen. Ungetestet. Kommt alles in eine Procedure oder in "einen button click event" den alle Buttons bekommen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Sender = Button1 then
  Edit1.Clear
 else if Sender = Button2 then
  Edit2.Clear;
end;

Mit Tags würde ich gar nicht erst anfangen wenn dir das in den Sinn kommt.

[Uwe Raabe]

Wenn die Namensgebung so oder zumindest prinzipiell so bleibt:

Delphi-Quellcode:

procedure TForm1.AllButtonsClick(Sender: TObject);
begin
  (FindComponent('Edit' + Copy((Sender as TButton).Name, 7, MaxInt)) as TEdit).Clear;
end;

Ist aber halt alles sehr unschön.

Alternative, wenn auch optisch anders, wäre die Buttons rauszunehmen und mehrere TButtonedEdit Controls, deren linker oder rechter Button (mit passendem Bildchen) zum Löschen verwendet wird:

Delphi-Quellcode:

procedure TForm1.AllButtonedEditsRightButtonClick(Sender: TObject);
begin
  (Sender as TButtonedEdit).Clear;
end;

[EmWieMichael]

Zitat:

Zitat von DieDolly (Beitrag 1427142)

...
Mit Tags würde ich gar nicht erst anfangen wenn dir das in den Sinn kommt.

Weil?

[TigerLilly]

* Ein Frame - je einer für ein Edit+Löschbutton
* Erzeugung von Edit+Button im Code und 4x geeignet aufrufen
* Im OnEnter des TEdits einen Button erzeugen + im OnExit wieder zerstören
* Einen Button unsichtbar anlegen, Im OnEnter des TEdits passend verschieben + sichtbar machen, im OnExit unsichtbar machen

[mkinzler]

Zitat:

Alternative, wenn auch optisch anders, wäre die Buttons rauszunehmen und mehrere TButtonedEdit Controls, deren linker oder rechter Button (mit passendem Bildchen) zum Löschen verwendet wird:

Dann würde ich aber auf Nummer sicher gehen:

Delphi-Quellcode:

procedure TForm1.AllButtonedEditsRightButtonClick(Sender: TObject);
begin
  if Sender is TButtonedEdit then
    TButtonedEdit(Sender).Clear;
end;

[Uwe Raabe]

Zitat:

Zitat von mkinzler (Beitrag 1427153)

Dann würde ich aber auf Nummer sicher gehen:

Na ja, damit wird ein etwaiger Fehler einfach ignoriert. Mit dem

Delphi-Quellcode:

as

Konstrukt kommt wenigstens eine Exception, wenn sowas unerwartet passiert. Das ist dann ein Zeichen, daß das Programm sich nicht so verhält, wie beabsichtigt - und das will ich in der Regel wissen.

[haentschman]

Zitat:

nicht so verhält, wie beabsichtigt - und das will ich in der Regel wissen

:thumb:

[Dennis07]

Beim erstellen der Komponente (mglw. im FormCreate-Event):

Delphi-Quellcode:

Edit1.Tag := Integer(Button1);
Edit2.Tag := Integer(Button2);
Edit3.Tag := Integer(Button3);

Dann die Löschbuttons im OnClick alle hiermit verknüpfen:

Delphi-Quellcode:

procedure TForm1.AllButtonedEditsRightButtonClick(Sender: TObject);
begin
  TEdit((Sender as TButton).Tag).Clear;
end;

Auch nicht die beste Lösung, aber eine. Das beste und einzig saubere wäre aber, entweder 3 Events (so würd ich es meistens machen), oder ein von TButton abgeleitetes Control, das selber eine "Edit"-Property besitzt und diese dann leert.
Auch wäre eine

Delphi-Quellcode:

TObjectDictionary<TButton, TEdit>

denkbar.

[Jumpy]

Das passt aber irgendwie nicht, müsste das nicht umgekehrt sein:

Button1.Tag := Integer(Edit1);
usw.

[Schokohase]

Wenn die Frames in Delphi nicht so seltsam wären, würde ich ein Frame vorschlagen mit einem Edit und einem Button und davon dann einfach so viele wie gewünscht auf die Form legen.

Die Verdrahtung zwischen Button und Edit erfolgt einmalig im Frame.

[Dennis07]

Zitat:

Zitat von Jumpy (Beitrag 1427195)

Das passt aber irgendwie nicht, müsste das nicht umgekehrt sein:

Button1.Tag := Integer(Edit1);
usw.

Jo, hast recht! :)

[freimatz]

Zitat:

Zitat von Schokohase (Beitrag 1427198)

Wenn die Frames in Delphi nicht so seltsam wären, ...

Was ist daran seltsam? :shock:

[Schokohase]

Zitat:

Zitat von freimatz (Beitrag 1427245)

Zitat:

Zitat von Schokohase (Beitrag 1427198)

Wenn die Frames in Delphi nicht so seltsam wären, ...

Was ist daran seltsam? :shock:

Leg mal ein Edit und ein Button in eine Frame. Der Button rechtsbündig und der Edit nimmt den Rest der Framefläche.

Jetzt lege dir davon ein paar auf ein Form und verschiebe die Frames mit der Maus.

Genau, sehr leicht hat man nicht das Frame, sondern das Edit-Control in dem Frame verschoben.

[peterbelow]

Zitat:

Zitat von Schokohase (Beitrag 1427247)

Zitat:

Zitat von freimatz (Beitrag 1427245)

Zitat:

Zitat von Schokohase (Beitrag 1427198)

Wenn die Frames in Delphi nicht so seltsam wären, ...

Was ist daran seltsam? :shock:

Leg mal ein Edit und ein Button in eine Frame. Der Button rechtsbündig und der Edit nimmt den Rest der Framefläche.

Jetzt lege dir davon ein paar auf ein Form und verschiebe die Frames mit der Maus.

Genau, sehr leicht hat man nicht das Frame, sondern das Edit-Control in dem Frame verschoben.

Das Problem hat man auch mit anderen Container-Controls, wenn man sie ganz mit controls zupflastert. Ein Bißchen Platz zwischen den Controls sieht eh besser aus, also verwende (in deinem Beispiel) AlignWithMargin = true für eine der beiden, z. B. für den Button mit Margin.left = 6 und allen anderen = 0.

Außerdem: Klick auf das Edit, dann ESC, damit hat das Frame die drag handles.

[Schokohase]

Zitat:

Zitat von peterbelow (Beitrag 1427314)

Außerdem: Klick auf das Edit, dann ESC, damit hat das Frame die drag handles.

Ich sagte auch nicht das es unmöglich ist, aber eben ein Eiertanz. Das hab ich woanders schon erheblich besser gesehen.

[Sherlock]

Man kann das doch fixieren. Oder ist TControl.Locked ein FMX-Feature? Ich mach das ständig. Und bekomme so nur das Container-Objekt zu fassen.

Sherlock

[Rollo62]

Frames kann man benutzen, aber in der KomponentenPalette wurde ich das tunlichst vermeiden.
Damit gab es bei mir mal ziemliche Probleme wenn denn die FrameKomponente einen Bug hat, dann lassen sich ganze Projekte nur noch mit viel Mühe wieder laden.

Aber Frames als separate "Form-ähnliche" Container benutze ich mittlerweile sehr oft,
und diese Lade ich zur Laufzeit in Panels, oder andere Container.

Das geht wunderbar, und ist für mich ein guter Kompromiss zw. RAD und alles im Code definieren.
So kann ich alles Visuelle perfekt "RAD" auf dem Frame machen, und den Rest in Code.