Elemente von bestimmten Parent ansprechen

[Albi]

Hallo,

ich versuche gerade Komponenten die auf einem Panel liegen anzusprechen, um genau zu seien, zu leeren. Also es handelt sich um Edit- u. CBoxen, die ich einfach leeren will.

Das Problem dabei ist, dass das Panel auf einer TabSheet Seite liegt.

Nun habe ich mir gedacht, bevor ich für alle Edit1.Clear usw. schreibe, kann ich doch einfach sagen, dass alle die Edit's von Parent Panel1 gelöscht werden sollen. Und genau da liegt mein Problem.

Bisher habe ich die Edit's immer so gelöscht:

Delphi-Quellcode:

For i:= 0 To ComponentCount-1 Do
   if (Components[i] is TEDit) Then
     (Components[i] AS TEdit).Clear

Nun muss man doch einfach nur noch abfrage einbauen, die kuckt ob der Parent eben das Panel ist oder nicht.

[Leuselator]

Du bist schon auf dem richtigen Weg.
mit:For i:= 0 To ComponentCount-1 Do schreibst Du eigentlich:For i:= 0 To self.ComponentCount-1 Do wobei self in diesem Falle wahrscheinlich ein TForm ist.
Wenn Du Dein Panel schon kennst, dann liefert:

Delphi-Quellcode:

For i:= 0 To DeinPanel.ComponentCount-1 Do 
if (DeinPanel.Components[i] is TEDit) Then
     (DeinPanel.Components[i] AS TEdit).Clear

was Du willst.
Gruß

[Albi]

Hallo,

So richtig funktioniert das nicht, um genau zu sein gar nicht. Das Ergebnis von

Code:

panel1.ComponentCount

ist immer -1.

Wenn ich aber nur

Code:

ComponentCount

nehme, schreibt er mir die richtige Anzahl der Komponenten des Forms.

[Leuselator]

sorry - versuch doch mal ControlCount und Controls[]
...