由于工资项目由用户输入,所以要动态添加控件,可添加后,无法显示动态创建的控件!!,请写出简单例子,谢谢!!

解决方案 »

  1.   

    Procedure TForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:integer);
    var btn:TButton;
    begin
    Btn:=TButton.Create(self);
    btn.parent:=self;
    btn.left:=x;
    btn.top:=y;
    btn.width:=btn.width+50;
    btn.caption:=format('button at %d,%d',[x,y]);
    end;
      

  2.   

    指定parent:= ..
       left:=
       top:=
      

  3.   

    edit:teditbegin
    edit:=tedit.create();
    edit.visible:=true;
      

  4.   

    var
      Button:Tbutton
    begin
      Button := Tbutton.create(self);