Einzelnen Beitrag anzeigen

megaGOLDdeluxe

Registriert seit: 23. Sep 2004
7 Beiträge
 
#2

Re: TButton über Laufvariable?

  Alt 6. Feb 2007, 01:27
Du kannst z.b. wie folgt auf die Buttons zugreiffen. Da diese ja auf einem Form liegen, kannst Du über dieses auf die Buttons zugreiffem, da das Form "sehen kann, was auf ihm liegt".

Delphi-Quellcode:
procedure TForm1.RenameButtons;
var
  iRunner: Integer;
begin
  for iRunner := 0 to Form1.ComponentCount -1 do
  begin
    if Form1.Components[iRunner] is TButton then
    begin
      (Form1.Components[iRunner] as TButton).Caption := 'MeinButton'+IntToStr(iRunner);
    end;
  end;
end;

// Form1.ComponentCount gibt Dir die Anzahl, der auf dem Form liegenden Komponenten zurück.
// Mit Form1.Components[iRunner] is TButton überprüfst Du, ob die aktuelle Komponente ein TButton ist.
// (Form1.Components[iRunner] as TButton) brachst Du, um an die Eigenschaften Deines Buttons zu kommen.
MfG
Pierre
  Mit Zitat antworten Zitat