wert "durchreichen" ?

[ConnorMcLeod]

Sorry, wenn ich das falsch verstehe, aber meine Idee:
Pseudocode!

Delphi-Quellcode:

procedure GruppenButtonWurdeGeklickt(const AEditText: string);
var
  li: integer;  // Schleifenzaehler
  NewScrollBox: TScrollBox;
begin
  NewScrollBox := CreateProductScrollboxWithButtons;
  for li := 0 to NewScrollBox.ComponentCount-1 do
  begin
    if (NewScrollBox.Components[li] is TProductButton) then
    begin
      TProductButton(NewScrollBox.Components[li]).StringProperty := AEditText;
    end;
  end;
end;