动态加载

Question

怎么样在运行时加载控件。如butten 之类的。
还有怎样用Query从查找的结果中把要的字段输出到定的Edit框里

Answer 1

不明白你第一个问题是什么意思.
第二个问题:
Edit.text:=Query.field[n].asstring
n代表第几列
或者
Edit.text:=Query.fieldbyname[s].asstring
s代表字段名.

Answer 2

1.var
  bt: TButton;
begin
  bt := TButton.Create;
  bt.left := 10;
  bt.top := 10;
  bt.parent := Sender;
end;

Answer 3

那是否要use 什么呢？

Answer 4

procedure  TForm1.Button1Click(Sender:  TObject);  
var  
   button:TSpeedButton;    //这里动态生成一个按钮  
begin  
   button:=TSpeedButton.Create(form1);  
   button.Caption:='aaaa';  
   button.Left:=20;  
   button.Width:=300;  
   button.Top:=20;  
   button.OnClick:=buttonClickEvent;  
   button.Parent:=form1;  
end;