两个MDI字窗体如何互相赋值?请大虾们帮忙......

Question

字窗体A 和 B,B由A创建显示,从B中向A的控件Memo赋值,该如何实现呢?

Answer 1

窗体B引用窗体A，然后直接赋值就完了
var
  Form2: TForm2;implementationuses Unit1;{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Memo1.Lines.Text := 'wudi_1982';end;

Answer 2

这样做在普通窗体中可以，在mdi子窗体中运行出错，是不是子窗体之间有什么限制，需要某些特殊的方法阿？

Answer 3

wudi_1982说的当两个子窗体由系统自动创建时,是好使的,但我的问题是B是由A创建的,该如何处理呢?代码如下:
A创建B:
procedure TFrmGeneralSend.bsSkinButton5Click(Sender: TObject);
var
  VFrmSelectPhrase: TFrmSelectPhrase;
begin
  VFrmSelectPhrase := TFrmSelectPhrase(FindComponent('FrmSelectPhrase'));
  if not Assigned(VFrmSelectPhrase) then
    VFrmSelectPhrase := TFrmSelectPhrase.Create(self);
  VFrmSelectPhrase.Show; end;B写回A:
procedure TFrmSelectPhrase.bsSkinButton1Click(Sender: TObject);
begin
  FrmGeneralSend.bsSkinMemo1.Text := 'aaaaa';
end;代码运行时出错,是不是哪里写错了?