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 von DieDolly:

...
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 von mkinzler:

Dann würde ich aber auf Nummer sicher gehen:

Na ja, damit wird ein etwaiger Fehler einfach ignoriert. Mit dem 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

[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 TObjectDictionary<TButton, TEdit> denkbar.

[Jumpy]

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

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