急急急高分相送..怎么在程序中动态加入组件呀??

Question

如题,,

Answer 1

往quickreport 中动态的添加Tqrlable,TqrDBText 之类的组件
procedure TForm1.Button1Click(Sender: TObject);
var Hj:TQRDBText ;
begin
HJ:=TQRDBText.Create(self);
HJ.ParentReport := QuickRep1 ;
HJ.Parent := QRdetailBand; //所属区
HJ.Left := 200 ;
HJ.Top := 12 ;
HJ.DataSet := Table1;
HJ.DataField := 'CTableName';
HJ.Visible := true ;
HJ.onprint := QRDBText1Print;
end;
procedure TForm1.QRDBText1Print(sender: TObject; var Value:
String);
begin
Value:= 'HJDSD';
end;

Answer 2

var btn:tbutton;
begin
  btn:=tbutton.Create(self);
  btn.Parent:=panel1;
  btn.Left:=100;
  btn.Top:=10;
  btn.Caption:='MyButton';
  ..........
end;

Answer 3

Var
  MyMemo : TMemo;
Begin
  MyMemo := TMemo.Create (Self);
  MyMemo.Parent := Form1;
  MyMemo.Width := 200;
  MyMemo.Height := 150;
  ...
End;

Answer 4

with TComponent.Create(Nil) do
try
  do something
  ....
  ....
finally
  free;
end;

Answer 5

就是create一个以后，设置parent,left,top什么的，代码和上面几位的一样了。