У меня на форме расположено примерно 50 Edit'ов , 121 label и 36 Combobox . Как программно очистить их значения не перебирая каждый компонент по отдельности, ведь это очень глупо получиться ?
1 ответ
for i:=0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[i] is TEdit) then TEdit(Form1.Components[i]).Text:='';
if (Form1.Components[i] is TCombobox) then TCombobox(Form1.Components[i]).ItemIndex:=-1;
if (Form1.Components[i] is TLabel) then TLabel(Form1.Components[i]).Caption:='';
end;
-
В принципе работает только одно НО. У меня на форме PageControl в них GroupBox. И очистилось только в первом боксе, т.е. в GroupBox1. Что не так ?– zerpico30 мая 2012 в 7:33
-
Массив Components формы содержит все компоненты формы. Может быть другие компоненты у вас там лежат... 30 мая 2012 в 8:29
-
все разобрался, ты все правильно написал, я просто сам ошибся когда перепечатывал у меня форма 12-ая а не первая.– zerpico30 мая 2012 в 8:34