Löschen Button nur einmal implementieren

[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.

[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.

[freimatz]

Zitat von Schokohase:

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

Was ist daran seltsam?

[Schokohase]

Zitat von freimatz:

Zitat von Schokohase:

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

Was ist daran seltsam?

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

Zitat von freimatz:

Zitat von Schokohase:

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

Was ist daran seltsam?

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.

[Dennis07]

Zitat von Jumpy:

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

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

Jo, hast recht!