Question

delphi用PageControl加载窗体后调用问题!

在Delphi中有以下两个函数实现了多页面主窗体,即像浏览器一样每打开一个窗体就动态创建个tabsheet用以加载窗体,现在问题是加载到了tabsheet里面的窗体不知道怎么实现调用了!
比如frmMain里面有pageControl1,f1已显示在tabsheet1里面了,现在有个f2是通过showDialog显示出来的窗体,f2怎样才可以调用f1里面edit1的内容?

procedure TuniBaseOperate.ShowForm(PageControl: TPageControl;
FormClass: TFormClass; Caption: string);
var Form: TForm;
TabSheet: TTabSheet;
begin
if FindEqualForm(FormClass, PageControl) then Exit;
TabSheet := TTabSheet.Create(PageControl);
TabSheet.PageControl := PageControl;
TabSheet.Caption := Caption;
Form := FormClass.Create(TabSheet);
Form.Parent := TabSheet;
TabSheet.Tag := Integer(Form);
PageControl.ActivePage := TabSheet;
Form.Left:=PageControl.Left;
Form.Top:=PageControl.Top;
Form.Show;
end;

function TuniBaseOperate.FindEqualForm(FormClass: TFormClass; PageControl: TPageControl): Boolean;
var i: Integer;
begin
Result := False;
for i := PageControl.PageCount - 1 downto 0 do
if TForm(PageControl.Pages[i].Tag) is FormClass then
Result := True;
end;

Answer 1

变通方法： 想办法将f1里面edit1的值，存入到一个全局变量内。 f2再取全局变量的值，这个不难做到吧；
或将f1或f2的指针（对象）存在一个局变量内，通过对象的层次关系（如：f1.edit.text）来获取；
我对您提到的组件不太熟悉，只能提些建议；

Answer 2

你的意思是在一个窗体里的 2个控件上的值相互传递么?