ComponentCount

[APP]

Hallo rBest,
mal auf die Schnelle Quick and Dirty:

Delphi-Quellcode:

PROCEDURE TForm1.Button1Click(Sender: TObject);
  PROCEDURE SetReadOnly(TargetTab: TTabSheet);
  VAR
    k                              : integer;
  BEGIN
    FOR k := 0 TO ComponentCount - 1 DO
      BEGIN
        IF (components[k].classType = TEdit) AND (components[k].GetParentComponent = TargetTab) THEN
          WITH (components[k] AS TEdit) DO
            BEGIN
              Color := clRed;
            END;
      END;
  END;
BEGIN
  // Setzt alle Edits vom 1. Tabsheet (Index=0) auf rot, alle 
  // anderen Edits auf den übrigen TabSheets bleiben unangetastet.
  SetReadOnly(PageControl1.Pages[0]);
END;