Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#2

AW: D7 FindComponent über .tag und Caption

  Alt 3. Jun 2016, 16:42
Hallo,

du kannst über ComponentCount die einzelnen TPanels suchen und dann dementsprechend darauf zugreifen.

Z. B.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  MyPanel: TPanel;

begin
  for i := 0 to Pred(ComponentCount) do
    If Components[i].ClassName = 'TPanelthen
      begin
        MyPanel := TPanel(Components[i]);

        ShowMessage(Format('Panelname: %s, Tag: %d', [MyPanel.Name, MyPanel.Tag]));
      end;
end;
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat