DELPHI3.0怎样象VB一个也能使用命令按钮数组
编号：QA000573
建立日期: 1999年3月2日 最后修改日期：1999年3月2日
所属类别：
djs:
DELPHI3.0怎样象VB一个也能使用命令按钮数组？VB可以传递命令按钮的INDEX参数，而DELPHI能否也获得？
回答:
Delphi 3.0没有等同于VB的控件数组机制。如果你只是想在一个OnClick事件中处理多个按钮。你可以将多个按钮的OnClick事件指定为一个过程，比如都为Button1Click。下面的这段代码就可以展示这种用法：
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage((Sender As TButton).Caption);
end;
当你点击一个按钮后，它就会显示该按钮的标题。
另外一种是办法是动态建立控件数组，如
声明
arrShape: array[1..10] of TShape;
然后加入如下代码：
procedure TForm1.FormCreate(Sender: TObject);
var counter:integer;
begin
for counter := 1 to 10 do
begin
arrShape[counter]:= TShape.Create(Self);
arrShape[counter].top := Counter * 10;
arrShape[counter].Left := 20;
arrShape[counter].Height := 8;
arrShape[counter].Parent := Form1;
end;
end;
这种方法的事件处理方法类似前面一种。
此问题由李海回答。
| |
|
|
| |
|
|
