Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
Delphi XE2 Professional
|
AW: D7 FindComponent über .tag und Caption
3. Jun 2016, 17: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 = 'TPanel' then
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! <<
|