孤 孤月 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-22 #1 我的系统中有一个公用窗口（DlgForm）和N个普通窗口（Form1，Form2……FormN)，这N个普通窗口都定义了一个公共变量（m_Flag），如果我在其中一个普通窗口中创建并Show了公用窗口（DlgForm），请问如何在DlgForm窗口中对创建它的普通窗口的变量m_Flag进行赋值。恳请指教，谢谢！
我的系统中有一个公用窗口（DlgForm）和N个普通窗口（Form1，Form2……FormN)，这N个普通窗口都定义了一个公共变量（m_Flag），如果我在其中一个普通窗口中创建并Show了公用窗口（DlgForm），请问如何在DlgForm窗口中对创建它的普通窗口的变量m_Flag进行赋值。恳请指教，谢谢！
W wlmmlw Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-22 #2 在公用窗口中<br> CreateDlgForm(var m_Flag: sometype)<br> DlgForm := TDlgForm.Create;
在公用窗口中<br> CreateDlgForm(var m_Flag: sometype)<br> DlgForm := TDlgForm.Create;
孤 孤月 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-22 #3 谢过wlmmlw，但小弟还是不太明白，能否详细一点呢，谢啦！
W wlmmlw Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-22 #4 公共窗口UNIT里提供一个函数,CreateDlgForm(var m_Flag: sometype);<br>这个函数用来创建公共窗口的.它有一个传入参数,就是你的N个窗口里定义的m_Flag,这样你就能对m_Flag时行赋值了
公共窗口UNIT里提供一个函数,CreateDlgForm(var m_Flag: sometype);<br>这个函数用来创建公共窗口的.它有一个传入参数,就是你的N个窗口里定义的m_Flag,这样你就能对m_Flag时行赋值了
S snrmtd Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-22 #5 {Form1}<br> procedure.....<br> begin<br> m_Flag:=A;<br> end;<br>{DlgForm}<br> <br> var s:String;<br> function A:String;<br> <br> begin<br> DlgForm:=TDlgForm.Create;<br> DlgForm.ShowModel;<br> Result:=s;<br> end;
{Form1}<br> procedure.....<br> begin<br> m_Flag:=A;<br> end;<br>{DlgForm}<br> <br> var s:String;<br> function A:String;<br> <br> begin<br> DlgForm:=TDlgForm.Create;<br> DlgForm.ShowModel;<br> Result:=s;<br> end;
