怎样在TabSheet页上动态产生DBRadioGroup, DBMemo控件？

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TDBRadioGroup.Create(Self) do begin
    Parent := TabSheet1;
    //DataSource := ;
    //DataField := ;
    //Left := ;
    //Top := ;
    //...
  end;
  with TDBMemo.Create(Self) do begin
    Parent := TabSheet1;
    //DataSource := ;
    //DataField := ;
    //Left := ;
    //Top := ;
    //...
  end;
end;

Answer 1

..-zzzZZZZzZZZzZZZzＺＺＺＺＺＺzＺＺZ

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TTabSheet.Create(Self) do
  begin
    Caption := 'New' + IntToStr(PageControl1.PageCount);
    PageControl := PageControl1;
    showmessage(''''+TTabSheet.Create(self).Name+'''');  //为什么显示''?
  end;
end;

Answer 3

我想在动态产生TabSheet同时也在TabSheet上动态产生DBRadioGroup, DBMemo, 行吗？

Answer 4

  with TDBRadioGroup.Create(Self) do begin
    Parent := PageControl1.Pages[0]; //看你动态的是谁
    //DataSource := ;
    //DataField := ;
    //Left := ;
    //Top := ;
    //...
  end;

Answer 5

//你可以通过Tag属性或Name属性来确定
//参考FindComponent()
//我要休息了！明天继续关注procedure TForm1.Button1Click(Sender: TObject);
var
  vTabSheet: TTabSheet;
begin
  vTabSheet := TTabSheet.Cretae(Self);
  with vTabSheet do
//     ~~~~~~~~//这样清楚点了吧！
  begin
    Caption := 'New' + IntToStr(PageControl1.PageCount);
    PageControl := PageControl1;
    Name := Captoin;
//  ~~~~~~~~~~~~~~~~
    ShowMessage(Name);
  end;  vDBRadioGroup := TDBRadioGroup.Create(Self)
  with vDBRadioGroup do begin
    Parent := vTabSheet;
    //DataSource := ;
    //DataField := ;
    //Left := ;
    //Top := ;
    //...
  end; 
end;

Answer 6

//再参考
Controls[]
ControlCount()

Answer 7

为什么会报错:‘Control' has no parent window ?procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  F_TabSheet: array[1..10] of TTabSheet;
  F_DBRadioGroup: array[1..10] of TDBRadioGroup;
begin
  for i := 1 to 10 do
  begin
    F_TabSheet[i] := TTabSheet.Create(self);
    F_TabSheet[i].Caption := 'Simon' + IntToStr(i);
    F_TabSheet[i].PageControl := PageControl1;
  end;
  for i := 1 to 10 do
  begin
    F_DBRadioGroup[i] := TDBRadioGroup.Create(self);
    F_DBRadioGroup[i].Items.Add('待批');
    F_DBRadioGroup[i].Items.Add('同意');
    F_DBRadioGroup[i].Items.Add('不同意');
    F_DBRadioGroup[i].Parent := PageControl1.Pages[i-1];
  end;
end;

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  F_TabSheet: array[1..10] of TTabSheet;
  F_DBRadioGroup: array[1..10] of TDBRadioGroup;
begin
  for i := 1 to 10 do
  begin
    F_TabSheet[i] := TTabSheet.Create(self);
    F_TabSheet[i].Caption := 'Simon' + IntToStr(i);
    F_TabSheet[i].PageControl := PageControl1;
  end;
  for i := 1 to 10 do
  begin
    F_DBRadioGroup[i] := TDBRadioGroup.Create(self);
    F_DBRadioGroup[i].Parent := PageControl1.Pages[i-1];
//  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~提前
//  不错，你已经理解了！晚安
    F_DBRadioGroup[i].Items.Add('待批');
    F_DBRadioGroup[i].Items.Add('同意');
    F_DBRadioGroup[i].Items.Add('不同意');
  end;
end;

Answer 9

多谢zswang(伴水)(需要充充电)!!

Answer 10

zswang(伴水)(需要充充电), 晚安!