Dynamisch erzeugte Komponenten ansprechen

[itblumi]

Hier ist mal noch eine Funktion die ich benutzt habe um Controls recursiv zu finden. Vllt. hilft dir das ja.

Delphi-Quellcode:

function FindFirstControl(const aControl: TWinControl; AClass: TClass): TControl;
var
  i: Integer;
begin
  Result := nil;
  for i := 0 to aControl.ControlCount -1 do
  begin
    if aControl.Controls[i] is AClass then
    begin
      Result := aControl.Controls[i];
      break;
    end else
    begin
      Result := FindFirstControl(TwinControl(aControl.Controls[i]), AClass);
      if (Result <> nil) then
        break;
    end;
  end;
end;