Есть ли 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];

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

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