各位大大
我有一个主窗体A,一个子窗体B,子窗体上有一个edit控件,运行要新建4个子窗体,如何将在焦点上的子窗体上的EDIT上写TEXT 我只知道ActiveMDIChild能获得这个窗体的一些属性 ,但是无办法在上面写东西.......

//Tform1 為MDIForm; Tform2為MDIChild;
procedure TForm1.Button2Click(Sender: TObject);
var
ActiveForm2:TForm2;
begin
ActiveForm2 := TForm2(ActiveMDIChild);
if ActiveForm2 <> nil then
ActiveForm2.Edit1.Text := TimeToStr(Now)
else
ShowMessage('Child Form Not Found');
end;



===================引 用 mayingjie313 文 章===================
各位大大
我有一个主窗体A,一个子窗体B,子窗体上有一个edit控件,运行要新建4个子窗体,如何将在焦点上的子窗体上的EDIT上写TEXT 我只知道ActiveMDIChild能获得这个窗体的一些属性 ,但是无办法在上面写东西.......

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

編輯記錄

procedure TForm1.form21Click(Sender: TObject);
begin
Tedit(form1.ActiveMDIChild.FindComponent('edit1')).Text := 'MdiForm 傳給 ActiveMDIChild';
end;

------
努力會更接近成功

谢谢你    

===================引 用 eaglewolf 文 章===================
//Tform1 為MDIForm; Tform2為MDIChild;
procedure TForm1.Button2Click(Sender: TObject);
var
ActiveForm2:TForm2;
begin
ActiveForm2 := TForm2(ActiveMDIChild);
if ActiveForm2 <> nil then
ActiveForm2.Edit1.Text := TimeToStr(Now)
else
ShowMessage('Child Form Not Found');
end;



===================引 用 mayingjie313 文 章===================
各位大大
我有一个主窗体A,一个子窗体B,子窗体上有一个edit控件,运行要新建4个子窗体,如何将在焦点上的子窗体上的EDIT上写TEXT 我只知道ActiveMDIChild能获得这个窗体的一些属性 ,但是无办法在上面写东西.......