Dynmaische Label finden

[TheMiller]

Ähm ja...

Delphi-Quellcode:

procedure TForm1.Button30Click(Sender: TObject);
var
  i,j:integer;
begin
  Label4.Visible:=False;
  Wort:=sl.Strings[random(sl.Count)];
  Label4.Caption:=Wort;
  j:=176;
  SetLength(Buchstaben, Label4.GetTextLen);
  for i:=1 to Label4.GetTextLen do
  begin
    Buchstabe:=TLabel.Create(nil);
    Buchstabe.Parent:=Form1;
    Buchstabe.Caption:=Copy(wort,i,1);
    Buchstabe.Name:='Dyn'+IntToStr(i);
    [b]ShowMessage(Buchstabe.Name);[/b]
    Buchstabe.Left:=j+20;
    Buchstabe.Top:=176;
    j:=Buchstabe.Left;
  end;
end;

Delphi-Quellcode:

procedure TForm1.Button31Click(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to form1.ComponentCount - 1 do
  begin
    if form1.Components[i].ClassType = TLabel then
    begin
      if Form1.Components[i].Name = 'Dyn1' then
      ShowMessage('JA');
    end;
  end;
end;