随
随缘
Unregistered / Unconfirmed
GUEST, unregistred user!
我建了一个fsMDIForm类型的窗口；三个fsMDIChild类型的窗口。
我用如下方法启动fsMDIChild类型窗口：
//调用MDI窗口
procedure ShowMdiForm(SMdiForm: TForm; TSMdiForm: TFormClass);
begin
if not Assigned(SMdiForm) then
SMdiForm := TSMdiForm.Create(Application);
if SMdiForm.WindowState=wsMinimized then SMdiForm.WindowState := wsNormal
else
begin
SMdiForm.Top := 0;
SMdiForm.Left := 0;
SMdiForm.Refresh;
SMdiForm.Show;
end;
end;
问题在下面：
１、三个fsMDIChild类型他们不能相互访问数值。如：
Form2.Edit1.Text := Form1.Edit3.Text;
２、在编译时在某个fsMDIChild窗口中写如下代码通过，如：
Edit.Width := Form2.Width;
但一运行到此就通不过！
我已在Uses中加入相关数据；启动时用的TFormClass与建立时是一样的！
我用如下方法启动fsMDIChild类型窗口：
//调用MDI窗口
procedure ShowMdiForm(SMdiForm: TForm; TSMdiForm: TFormClass);
begin
if not Assigned(SMdiForm) then
SMdiForm := TSMdiForm.Create(Application);
if SMdiForm.WindowState=wsMinimized then SMdiForm.WindowState := wsNormal
else
begin
SMdiForm.Top := 0;
SMdiForm.Left := 0;
SMdiForm.Refresh;
SMdiForm.Show;
end;
end;
问题在下面：
１、三个fsMDIChild类型他们不能相互访问数值。如：
Form2.Edit1.Text := Form1.Edit3.Text;
２、在编译时在某个fsMDIChild窗口中写如下代码通过，如：
Edit.Width := Form2.Width;
但一运行到此就通不过！
我已在Uses中加入相关数据；启动时用的TFormClass与建立时是一样的！
][