Question

在Form1中，我有PageControl。在运行时，我的程序创建标签页。在每个TabSheet中，我创建Form2。在Form2中，我有一个Memo1组件。如何向Memo1添加文本？

Answer 1

你可以这样做：

(PageControl1.Pages[0].Controls[0] as TForm2).Memo1.Lines.Add('text');

Answer 2

如果我做对了你在做什么，

procedure TForm1.Button1Click(Sender: TObject);
var
  View: TForm;
  Memo1, Memo2: TMemo;
  Page: TTabSheet;
  I: Integer;

begin
  View:= TForm2.Create(Form1);
  View.Parent:= PageControl1.Pages[0];
  View.Visible:= True;
  View:= TForm2.Create(Form1);
  View.Parent:= PageControl1.Pages[1];
  View.Visible:= True;
// find the first memo:
  Page:= PageControl1.Pages[0];
  Memo1:= nil;
  for I:= 0 to Page.ControlCount - 1 do begin
    if Page.Controls[I] is TForm2 then begin
      Memo1:= TForm2(Page.Controls[I]).Memo1;
      Break;
    end;
  end;
  Page:= PageControl1.Pages[1];
// find the second memo:
  Memo2:= nil;
  for I:= 0 to Page.ControlCount - 1 do begin
    if Page.Controls[I] is TForm2 then begin
      Memo2:= TForm2(Page.Controls[I]).Memo1;
      Break;
    end;
  end;
  if Assigned(Memo1) then Memo1.Lines.Add('First Memo');
  if Assigned(Memo2) then Memo2.Lines.Add('Second Memo');
end;

Answer 3

我看到这个代码存在一个大问题 - Memo2将与Memo1具有完全相同的值，因为搜索循环没有区别。此外，如果此代码已完成，那么除了页面上的表单之外什么都没有，根本没有理由进行搜索循环。

VilleK的答案应该编译并运行，我不知道你要求的是什么。

Answer 4

所以，我在你的帮助下解决了我的问题。这是我的代码：

var
ID, I: integer;
Tekstas: string;
View: TForm2;
Memo: TMemo;
Page: TTabSheet;
begin 
...
   Page := PageControl.Pages[ID];
   for i := 0 to Page.ControlCount - 1 do
   begin
   (PageControl.Pages[ID].Controls[0] as TKomp_Forma).Memo.Lines.Add('['+TimeToStr(Time)+']'+Duom[ID].Vardas+': '+Tekstas);
   end;
end;

希望这有助于其他人

如何访问页面控件中嵌入的表单的控件？

4 个答案: