在delphi中如何实现类似VB中的控件数组?比如我在程序中要动态添加个数不定的按钮,单击任何按钮都返回该按钮的Caption值

解决方案 »

  1.   

    procedure BtnClick(Sender: TObject);
    begin
      ....
      TButton(Sender).Caption;
      ....
    end;建立按钮时:  Btn1 := TBitBtn.Create(Self);
      with Btn1 do
      begin
        Parent := Self;
        SetBounds(18, 114, 77, 27);
        TabOrder := 1;
        OnClick:=BtnClick;
      end;
    或者使用TAG
      

  2.   

    const MaxBtnCount = 100;
    定义一个数组:BtnArray:array[MaxBtnCount] of TButton;
    new按钮时应该是这样:
    BtnArray[i] := TBitBtn.Create(Self);
      with BtnArray[i]  do
      begin
        Name = Btn+IntToStr(i);///////////////这行!
        Parent := Self;
        SetBounds(18, 114, 77, 27);
        TabOrder := i/////////////////;
        OnClick:=BtnClick;
      end;