wie finde ich die Komponenten auf einem TTabSheet?

[eddy]

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:

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;

mfg
eddy

[sniper_w]

Delphi-Quellcode:

 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;

So macht man es richtig.

[eddy]

Hallo sniper_w,

vielen Dank für die schnelle Antwort. So klappt das natürlich.

mfg
eddy