如何把动态创建的button显示在Form1上?

解决方案 »

  1.   

    //---------------------------------------------------------------------------
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
         TButton *Button=new TButton(Form1);
         Button->Caption="test";
    }
      

  2.   

    var button:TButton;
    begin
    button:=TButton.Create(self);
    button.caption="test"
    end;
      

  3.   

    var
      Button1 : array[1..26] of TButton;
      I:integer;
    begin
      i:=1;
      button1[i]:= TButton.Create(self) ;
      Button1[i].Caption := '1';
      Button[i].Parent:=form1;
      DriverButton[Counter].OnClick := ButtonMouseDown; //ONCLICK事件procedure TForm1.ButtonMouseDown(Sender: TObject);
    begin 
      caption := TButton(Sender).caption;
    end;
      

  4.   

    重要的一句是btn.parent = Form1.