9 Label.Caption von 9 Frames umbenennen

[jaenicke]

Ja, ich habe ja geschrieben wie es geht...

Delphi-Quellcode:

var
  i: Integer;
begin
  for i := 0 to Pred(ComponentCount) do
    if Components[i] is TFrameX then
      TFrameX(Components[i]).LabelX.Caption := 'aa';
// oder:
  (FindComponent('FrameXY') as TFrameX).LabelY.Caption := 'aa';