wie finde ich die Komponenten auf einem TTabSheet?
Hallo Leute,
bei mir klemmt's. Entweder habe ich zu lange vorm Computer gesessen und es ist zu spät oder beides. Folgendes Problem: Mein TPageControl pc1 hat mehrere TTabSheet. Auf jedem TTabSheet gibt es unterschiedliche Art und Anzahl von Eingabefeldern. Bei Klick auf einen SpeedButton sollen alle Eingabefelder meines TabSheets gelöscht werden, aber ich bekomme als Anzahl immer nur Null. Ich will die Eingabefelder nicht mit ihren Name ansprechen, sondern die tatsächliche Anzahl und den jeweiligen Namen in einer Programmschleife in Abhängigkeit von der aktuell gewählten Seite (TTabSheet) ermitteln.
Delphi-Quellcode:
mfg
var
i : integer; s : string; ts : TTabSheet; begin ts := pc1.ActivePage; for i := 0 to ts.ComponentCount-1 do begin s := ts.Components[i].Name; //....weitere Bearbeitung geplant end; end; eddy |
Re: wie finde ich die Komponenten auf einem TTabSheet?
Delphi-Quellcode:
So macht man es richtig.
i : integer;
s : string; ts : TTabSheet; begin ts := pc1.ActivePage; for i := 0 to ts.ControlCount-1 do begin s := ts.Controls[i].Name; //....weitere Bearbeitung geplant end; end; |
Re: wie finde ich die Komponenten auf einem TTabSheet?
Hallo sniper_w,
vielen Dank für die schnelle Antwort. So klappt das natürlich. mfg eddy |
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:53 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz