Текущий архив: 2002.11.21;
Скачать: CL | DM;
Вниз
Как просмотреть свойства всех CheсkBox-ов на форме? Найти похожие ветки
← →
guood (2002-11-12 10:19) [0]Здраствуйте, Мастера. Возникла такая проблема:
на форме есть много CheсkBox-ов (порядка 40-а). Подскажите, плз. как можно на каких из них выставленно свойство Checked в true
заранее спасибо за ответ
← →
MBo © (2002-11-12 10:29) [1]пробеги по Components[] или Controls[]
c применением
if Components[i] is TCheckBox then
что-то:=TCheckBox(Components[i]).Checked;
← →
_Nicola_ (2002-11-12 10:31) [2]Можно использовать CheckListBox.
Или цикл по Forms.Components[i]
if Components[i] as TCheckBox then ура!
← →
_Nicola_ (2002-11-12 10:35) [3]Сорри за
_Nicola_ (12.11.02 10:31)
> if Components[i] as TCheckBox then ура!
надо
if Components[i] is TCheckBox then ура!
^^^^^
← →
LongIsland © (2002-11-12 10:41) [4]
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
CheckBox1.Checked:=True;
for i:=0 to Form1.ComponentCount-1 do
if Components[i] is TCheckBox then
if TCheckBox(Components[i]).Checked then
tag:=tag+1;
Button1.Caption:=IntToStr(tag);
end;
← →
guood (2002-11-12 11:02) [5]Всем огромное спасибо за помощь
Страницы: 1 вся ветка
Текущий архив: 2002.11.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
