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

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

Есть ли Controls, ControlCount в КОL ?? [Delphi, Windows]

Magic07 ©   (2007-09-19 15:06:00) 

Добрый день!
Как сделать в KOL\MCK  для ScrollBox то, что в Delphi
выглядит примерно так:

with ScrollBox1 do
for i:= 0 to ControlCount-1 do
    if (controls[i].Name = '.....')
........

---

homm   (2007-09-19 22:31:00) [1]

Твой PForm2 не может быть ничьим Children'ом. То, что ты получаешь в ScrollBox1.Children[i], в лучшем случае является твоим PForm2.Form, т.е. PControl

---

Magic07   (2007-09-19 19:50:00) [2]

//    Frame : PObj;
   Frame : PControl; //просто переменная

.......// PForm2 полноценная  формас полями и пр. (вкл. TKOLFrame)
   NewForm2(PForm2(Frame), Scroll);
//создаются дин-ки, вставляются в ScrollBox
// всё прекрасно работает
   PForm2(Frame).PR.IPAdress := Form3.HostEdit.Text;
   PForm2(Frame).PR.PackSize := 32;
   PForm2(Frame).Pan.Caption := Form3.HostEdit.Text
//

Проблемы только если получить
ссылку на форму через Children[i];

---

homm   (2007-09-19 17:31:00) [3]

> [2] Magic07   (19.09.07 16:44)
> Обратиться к полям и методам controla не получается

Контрола получается, а тому что ты написал, чушь, нет.
Откуда по твоему у Frame есть поля объекта PForm2 ?

---

Magic07   (2007-09-19 16:44:00) [4]

Спасибо!
Только опять возникла проблема:
Обратиться к полям и методам controla не получается
"Access Viol"

with ScrollBox1^ do
for i := 0 to ChildCount - 1 do
   begin
   Frame :=  Children[i];
   PForm2(Frame).GetMyTxt  //Ничего не возвращает (c ^ или нет без разницы)
   PForm2(Frame)^.tMyTxt := '4544' //Violation
   end

---

Дмитрий К   (2007-09-19 15:27:00) [5]

ChildCount, Children

with ScrollBox1^ do
 for i := 0 to ChildCount - 1 do
    if (Children[i].Name = '.....')
........

---

Наверх