Текущий архив: 2004.11.28;
Скачать: CL | DM;
Вниз
Как считать значение с динамических объектов Найти похожие ветки
← →
DEM_s (2004-11-11 15:21) [0]я создал в цикле динамически чекеты, как в цикли-же считать их значения?
j:=16;
for i:=0 to XMLRaights.DocumentElement.ChildNodes.Count-1 do
begin
CheckBox:=TCheckBox.Create(self);
CheckBox.Parent:=gbRaights;
CheckBox.Top:=j;
CheckBox.Left:=8;
j:=j+18;
end;
← →
Семен Сорокин © (2004-11-11 16:29) [1]как вариант - сохранить в массив.
← →
cae © (2004-11-11 16:41) [2]Примерно так :
for i := 0 to gbRaights.ControlCount - 1 do
if gbRaights.Controls[i] is TCheckBox then
with gbRaights.Controls[i] as TCheckBox do
begin
B := Checked ;
.......
end ; // for i
← →
Ega23 © (2004-11-11 16:42) [3]
j:=16;
for i:=0 to XMLRaights.DocumentElement.ChildNodes.Count-1 do
begin
CheckBox:=TCheckBox.Create(self);
CheckBox.Parent:=gbRaights;
CheckBox.Top:=j;
CheckBox.Left:=8;
CheckBox.Tag:=i;
j:=j+18;
end;
А так вычитывать:
for i:=0 to gbRaights.ControlCount-1 do
begin
if not (gbRaights.Controls[i] is TCheckBox) then Continue;
if (TCheckBox(gbRaights.Controls[i]).Tag=... ) and
(TCheckBox(gbRaights.Controls[i]).Checked) then ...
end;
← →
Плохиш © (2004-11-11 16:42) [4]
> DEM_s (11.11.04 15:21)
CheckBox:=TCheckBox.Create(gbRaights);
> как в цикли-же считать их значения?
Так же в цикле для gbRaights.Components[]
← →
Плохиш © (2004-11-11 16:42) [5]
> DEM_s (11.11.04 15:21)
CheckBox:=TCheckBox.Create(gbRaights);
> как в цикли-же считать их значения?
Так же в цикле для gbRaights.Components[]
← →
Ega23 © (2004-11-11 16:43) [6]CheckBox:=TCheckBox.Create(gbRaights);
ИМХО, необязательно...
← →
DEMs © (2004-11-12 06:06) [7]Спасибо
Страницы: 1 вся ветка
Текущий архив: 2004.11.28;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.041 c
