我创建了一个从tbutton继承的类 这种类的对象怎样使他显示再form上?
如果我要创建很多这种对象  用数组行不行 ? 用数组又怎样是他显示在form上啊 ?
谢谢

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    type
    Tmybutton=Tbutton;
    var
    i:integer;
    button:array[0..99] of Tmybutton;
    begin
    for  i:=low(button) to   high(button) do begin
    button[i]:= Tmybutton.Create(self);
    button[i].Parent:=self;
    button[i].Visible :=true;
    button[i].Top :=i*10;
    end;
    end;
      

  2.   

    要显示在form上yourbutton := Tyourbutton.create();
    yourbutton.parent := self;
    yourbutton.left = 10;
    yourbutton.top = 10;