Текущий архив: 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.043 c