两个基本问题

Question

1.10个radiobutton，可是只能有一个选中，我想分为两组，怎么办？
2.如何简化如下程序：
procedure Tform.Button1Click(Sender: TObject);
begin
label1.Caption:='aaa';
end;
procedure Tform.Button2Click(Sender: TObject);
begin
label2.Caption:='bbb';
end;
......
procedure Tform.ButtonXClick(Sender: TObject);
begin
labelX.Caption:='xxx';
end;

Answer 1

1、设置 Group 属性不知道行不行？2、以下仅供参考设置每个 Button 的 tag 属性为1、2、3....n ，并且每个 BUTTON 的 OnClick 事件都是同一个事件，如下：procedure Tform.Button1Click(Sender: TObject);
begin
  with TButton(Sender) do
      Caption:=Ord('a'+Tag)+Ord('a'+Tag)+Ord('a'+Tag);
  end;
end;呵呵~~~~~ 要实现你说的设置 Label 的内容，我看你只有自己写一个类，继承BUTTON，加一个指针指向 LABEL，然后就好写了。

Answer 2

Group这个属性怎么用，为什么我找了半天没有group属性呢？

Answer 3

1.用radioGroup控件.
2.const avalue: array[0..4] of char=('0','1','2','3','4');
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to componentcount-1 do
  begin
    if components[i] is TLabel then
      TLabel(components[i]).Caption:=avalue[i];
  end;
end;
 
  
end;

Answer 4

1。radiogroup；
2.控件遍历，如楼上。