怎样获得窗体中所有按钮和checkbox的名称？

Question

怎样获得窗体中所有按钮和checkbox的名称？

Answer 1

for i:=0 to form1.ComponentCount-1 do
  begin
    if form1.Components[i] is Tbutton then
      showmessag((form1.Components[i] as Tbutton).name);
    if form1.Components[i] is Tcheckbox then
      showmessag((form1.Components[i] as Tcheckbox).name);
  end;

Answer 2

var 
  contname:Tcontrol
....
contname:=controlatpos(mouse.cursorpos,true,true);
if contaname<>nil then showmessage(contname.name)

Answer 3

其实我是想知道怎样用最少的代码将checkbox1--checkbox30都勾上，我原以为得到了控件的名字就可以好像下面这样直接设他的属性了，谁知试了才知道不行。
form1.Components[i] as Tcheckbox).checked:=true那应该怎么办才好？

Answer 4

for i:=0 to form1.ComponentCount-1 do
  begin
    if form1.Components[i] is TButton then
      showmessag(TButton(Form1.Components[i]).Name);    if form1.Components[i] is TCheckbox then
      TCheckbox(form1.Components[i])).checked:=true;
  end;
—————————————————————————————————
中国鹰派
杀光小日本，拒绝韩日货！

Answer 5

不是说还有一种利用控件的tag属性来实现的方法吗？哪位能讲一讲？