Скачать: CL | DM;

Есть ли Controls, ControlCount в КОL ??   Найти похожие ветки 

← →
Magic07   (2007-09-19 15:06) [0]

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

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

---

← →
Дмитрий К ©   (2007-09-19 15:27) [1]

ChildCount, Children

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

---

← →
Magic07   (2007-09-19 16:44) [2]

Спасибо!
Только опять возникла проблема:
Обратиться к полям и методам 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

---

← →
homm ©   (2007-09-19 17:31) [3]

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

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

---

← →
Magic07   (2007-09-19 19:50) [4]

//    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 22:31) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c