| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск компонента во фрейме
Alex7 © (2005-09-30 13:16:00)Подскажите, пожалуйста в чем ошибка.
Мне нужно перебрать компоненты
внутри найденного фрейма.
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;
Юрий Зотов (2005-09-30 13:32:00) [1]> ZeroDivide © (30.09.05 13:24) [1]
> А еще правильнее
И получаем повторную проверку типа. Вряд ли это правильнее.
ZeroDivide (2005-09-30 13:24:00) [2]TEdit( Uk.Components[j]).Color := clred;
А еще правильнее:
(Uk.Components[j] as TEdit).Color := clred;
| |
