Текущий архив: 2005.10.23;
Скачать: CL | DM;
Вниз
Поиск компонента во фрейме Найти похожие ветки
← →
Alex7 (2005-09-30 13:16) [0]Подскажите, пожалуйста в чем ошибка.
Мне нужно перебрать компоненты
внутри найденного фрейма.
procedure TForm1.Button1Click(Sender: TObject);
Var i,j: Word;
Uk: TComponent;
begin
For i:=0 To ComponentCount-1 Do
If Components[i] is TFrame Then
// Нашел фрейм
Begin
Uk := Components[i];
For j:= 0 to Uk.ComponentCount-1 do {Число компонентов во фрейме верно }
If Uk.Components[j] is TEdit Then {а компонент берется из формы, а не из фрейма}
TEdit(Components[j]).Color := clred;
End;
end;
← →
ZeroDivide © (2005-09-30 13:24) [1]TEdit(Uk.Components[j]).Color := clred;
А еще правильнее:
(Uk.Components[j] as TEdit).Color := clred;
← →
Юрий Зотов © (2005-09-30 13:32) [2]> ZeroDivide © (30.09.05 13:24) [1]
> А еще правильнее
И получаем повторную проверку типа. Вряд ли это правильнее.
Страницы: 1 вся ветка
Текущий архив: 2005.10.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.03 c
