ComponentCount

[rbest]

Hi Kollegen,
obwohl das Wochenende :dancer: gnadenlos und unaufhaltsam auf uns zu rast :lol: , die Fragen gehen nicht aus.
Nun habe ich ein Problem mit einem lieben TTabSheet. Auf selbigen habe ich div. Objekte geklatscht (DBEdit and so on). Nennen wir die Seite pgPositionen. Frage ich nun selbige mit ComponentCount ab, behauptet sie frech, sie hätte keine (0 - nix da).
Bei VFP wurde eine Seite wie ein Container behandelt und alle Objekte darin waren Unter-Objekte der Seite. Mein Problem ist, ich möchte alle Objekte einer Seite (bzw. Tabs) auf ReadOnly stellen.
Ist mir zu helfen?

[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;

[Sourcemaker]

Hi,

schau mal nach ControlCount in der Hilfe.

Grüße

Frank

[rbest]

mit GetParentComponent komm ich weiter. Danke.