| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

перебор компонентов формы

fxmike ©   (2004-07-13 11:02:00) 

перебираю компоненты формы form1.components[i], чтобы отсортировать их по типам (editы - водну сторону, box-ы в другую и т.п.), в цикле присваиваю переменной comp(Tcomponent) form1.components[i], и не могу найти как мне можно обратиться ирменно к свойству компонента каким он сейчас является, например edit1.text?
надеюсь понятно написал. thanks.

---

fxmike   (2004-07-13 11:09:00) [1]

спасибо большое

---

Sandman25   (2004-07-13 11:06:00) [2]

if Comp is TEdit then
 TEdit(Comp).Text := ...
else
if Comp is TLabel then
 TLabel(Comp).Caption := ...

---

Ega23   (2004-07-13 11:06:00) [3]

With Form1 do
begin
 for i:=0 to ControlCount-1 do
  begin
   if (Controls[i] is TEdit) then
      (Controls[i] as TEdit).Text:='';

   if (Controls[i] is TComboBox) then
      (Controls[i] as TComboBox).ItemIndex:=1;

  end;
end;

И так далее.

---

Наверх