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.