Поиск компонента во фрейме

← →
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;

Поиск компонента во фрейме Найти похожие ветки