Eine Methode vielen Komponenten zuweisen

[gfjs]

Guten Morgen, allerseits.

Mit z.B.

Delphi-Quellcode:

for Nummer := 0 to Panel1.Controls.Count - 1 do
  if (sender is Label) then (sender as label).text := Nummer.ToString;

kann ich ja die Komponenten eines Panels durchlaufen und für alle Labels die Eigenschaft Text setzen. Ich vermute mal, dass es eine ähnliche Möglichkeit gibt, allen Labels dieselbe Ereignisbehandlungsroutine z.B. für Click zuzuweisen. Meine noch bescheidenen Kenntnisse reichen leider noch nicht aus, um das umzusetzen. Ihr könnt mir da aber sicher einen Tipp geben.

Vielen Dank im Voraus und noch einen schönen Sonntag.

Gruß Jürgen

[Elvis]

Bereits Control hat die Eigenschaft "Text" und den Event "Click", ein cast ist also eigentlich nicht notwendig:

Delphi-Quellcode:

var
  lbl : Control;
begin
  for label in DeinContainerControl.Controls do
    if lbl is Label then
      include(lbl.Click, DeinClickHandler);

btw: In Chrome sähe das so aus:

Delphi-Quellcode:

for matching label : Label in DeinContainerControl.Controls do
  label.Click += @DeinClickHandler;

[gfjs]

@ Elvis

Guten Morgen und vielen Dank für Deine Antwort ich werd's heute Abend gleich ausprobieren.

Noch einen schönen Tag.

Gruß Jürgen