A
acespound
Unregistered / Unconfirmed
GUEST, unregistred user!
一个 common 窗体被多个（不定）的窗体调用，问题是：<br> 请问如何将该窗体一个如String返回给调用窗体的如 Edit,ListBox... ????????
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
common 窗体 Form1(unit1.pas) 调用窗体 Form2 (unit2.pas)<br>在unit2.pas中 uses unit1;<br>Form2.edit1:=Form1.edit1; 或者在unit1.pas里声明全局变量在Form2里也可以直接使用<br>
T
tanglu
Unregistered / Unconfirmed
GUEST, unregistred user!
在Common中声明一个Public的变量。<br>其他窗体可以通过“窗口名.变量名”来访问。
9
940801
Unregistered / Unconfirmed
GUEST, unregistred user!
分几种情况，方法也有很多种！！！！你的问题描述的太简单了！！！<br>是 Show, 还是 ShowModal？<br>>> 一个 common 窗体被多个（不定）的窗体调用<br>Common 窗体是不是被临时创建的，调用的时候它们之间是父子关系吗?<br>是想在子窗体的该 String 变化时父窗体立刻反映，还是直到子窗体关闭后再反映变化？<br>可以采用属性传递（可以传父窗口的控件名，子窗口的字符串名......），发消息等，<br>kao，问问题你都这么懒？
9
940801
Unregistered / Unconfirmed
GUEST, unregistred user!
wjiachun 和 tanglu 的方法都不是 00 的，<br>唉，OO 的知音太少了
W
wangxd
Unregistered / Unconfirmed
GUEST, unregistred user!
定义全局变量最爽，可西我只会bcb的
A
autumn
Unregistered / Unconfirmed
GUEST, unregistred user!
最好用public的过程访问。
L
liguang
Unregistered / Unconfirmed
GUEST, unregistred user!
可以在被调用窗口的公有部分加一个参数用来保存主调程序的窗口句柄.然后通过PostMessage<br>或者SendMessage来向主调窗口发送消息返回字符串或其它一些信息.<br>
H
hhzh426
Unregistered / Unconfirmed
GUEST, unregistred user!
是不是可以设置一个公用变量publicstr:string;<br>或者一个公用变量publicedit:tedit;<br>调用者将本窗体的一个edit控件的指针传递给tedit(如果是定义publicedit的话)，然后用<br>commonform.showmodal;<br>等commonform关闭后检查publicstr或者tedit的text。<br>也可以用commonform.show方法，然后在edit的onchange事件中进行处理！
老
老朱
Unregistered / Unconfirmed
GUEST, unregistred user!
将这个变量说明为全局变量，调用的时候用类似form1.变量名来调用，不知道可不可以
B
bayu
Unregistered / Unconfirmed
GUEST, unregistred user!
在Form1 的 Public 中定义一个 String 的变量str，然后在 Form2 中如下操作 <br><br> Form1.str := Edit1.Text
B
BaKuBaKu
Unregistered / Unconfirmed
GUEST, unregistred user!
在被调用窗体 common 中定义一个公共变量不就可以了？
侠
侠客
Unregistered / Unconfirmed
GUEST, unregistred user!
use unit2
A
acespound
Unregistered / Unconfirmed
GUEST, unregistred user!
关于：<br> 一个 common 窗体被多个（不定）的窗体调用，问题是：<br> 请问如何将该窗体一个如String返回给调用窗体的如 Edit,ListBox... ????????<br>>>是 ShowModal<br>>>Common 窗体不是被临时创建的<br>>>调用的时候它们之间不是父子关系<br>>>直到子窗体关闭后再反映变化<br><br>我觉得用消息传递比较好？<br>
C
colorstone
Unregistered / Unconfirmed
GUEST, unregistred user!
用函数吧<br>在窗体中定义一个PUBLIC变量(sResult)<br>(note 为了保证窗体在SHOW 方式下能释放，在他的OnClose event里面Action:=CaFree
<br>-------------------------------<br>nShowType //0 ShowModal ;1 Show<br>Function GetCommFormStr(Const nShowType:integer):Sring;<br>begin<br> Application.CreateForm(TComm,CommForm);<br> with CommForm do <br> begin<br> Case nShowType of <br> 0:begin<br> Showmodal;<br> Result:=sResult;<br> Free;<br> end;<br> 1:begin<br> Show;<br> result:=sResult; <br> end<br> end;<br>end;
<br>-------------------------------<br>nShowType //0 ShowModal ;1 Show<br>Function GetCommFormStr(Const nShowType:integer):Sring;<br>begin<br> Application.CreateForm(TComm,CommForm);<br> with CommForm do <br> begin<br> Case nShowType of <br> 0:begin<br> Showmodal;<br> Result:=sResult;<br> Free;<br> end;<br> 1:begin<br> Show;<br> result:=sResult; <br> end<br> end;<br>end;
A
acespound
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
9
940801
Unregistered / Unconfirmed
GUEST, unregistred user!
无功不受禄，我谈谈我的方法吧，可能烦了一点，但我个人认为比较符合 OO 的思想：<br><br>Commom 窗体：<br><br>type<br> TCommonForm = Class(TForm)<br> ......<br> private<br> ........<br> procedure SetSpcString(value: string);<br> function GetSpcString: string;<br> .......<br> published<br> ......<br> Property SpcString: string read GetSpcString write SetSpcString;<br> end;<br><br>implementation<br><br>......<br><br>procedure TCommonForm.SetSpcString(value: string);<br>begin<br> if Edit1.Text <> value then<br> Edit1.Text:= value;<br>end;<br><br>function TCOmmonForm.GetSpcString: string;<br>begin<br> Result:= Edit1.Text;<br>end;<br><br>调用窗体：<br><br>procedure TFormPatrol.Button1Click(Sender: TObject);<br>begin<br> with TCommonForm.Create(Application) do<br> try<br> SpcString:= 'Initialize value'; //根据需要可以不要这一步<br> if ShowModal = mrOK then<br> begin<br> Edit2.Text:= SpcString; //得到字符串的值进行处理<br> ......<br> end;<br> finally<br> Free;<br> end;<br>end;<br><br>根据你的情况，处理方法很多，大致的思路还是用属性传递比较好，<br>在 Common 窗体中也可以用一个 Private 变量 FSpcString 来表示 SpcString;<br>在其 OK 按钮按下的时候再设置 FSpcString 的值
A
acespound
Unregistered / Unconfirmed
GUEST, unregistred user!
我是用消息搞定的，但是还有的不明白，先看代码再说吧<br>unit common;<br>interface<br>uses<br> ......<br>const<br> WM_USER_CallCommon=WM_USER+100;<br>type<br> TfrmCommon = class(TForm)<br> ......<br> private<br> { Private declarations }<br> procedure CallCommon(var Msg:Tmessage);Message WM_USER_CallCommon;<br> public<br> CallFrom:TMessage;<br> { Public declarations }<br>end;<br> implementation<br><br>uses <br> ......;<br><br>{$R *.DFM}<br><br>procedure TfrmCommon.CallCommon(var Msg:TMessage);<br>begin<br> // ......<br> CallFrom:=Msg;<br>end;<br>procedure TfrmTelKey.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br> // ......<br> SendMessage(CallFrom.WParam,WM_USER_GetInfo,CallFrom.LParam,0)<br>end;<br>end.<br><br>unit main;<br>interface<br>uses<br> ......<br>const<br> WM_USER_GetInfo=WM_USER+101;<br>type<br> TfrmMain = class(TForm)<br> ......<br> private<br> { Private declarations }<br> procedure GetInfo(var Msg:Tmessage);Message WM_USER_GetInfo;<br> public<br> CallFrom:TMessage;<br> { Public declarations }<br>end;<br> implementation<br><br>uses <br> ......;<br><br>{$R *.DFM}<br><br>procedure TfrmMain.GetInfo(var Msg:TMessage);<br>begin<br> // ......<br> CallFrom:=Msg;<br>end;<br>procedure TfrmMain.cmdCallCommon(Sender: TObject);<br>begin<br> // ......<br> SendMessage(frmCommon.Handle,WM_USER_CallCommon,frmMain.Handle,0);<br> frmCommon.ShowModal;<br>end;<br>end.<br> <br>如果有多个窗体调用的话，在每个窗体都得添加消息声明，不知有没有只声明一次的方法？<br>
K
kusanagi
Unregistered / Unconfirmed
GUEST, unregistred user!
也可以将Common窗口的Create异构放入回传参数的地址。<br>...<br>public<br> constructor Create(AOwner: TComponent; ResultStringAdd: ^String); overload;<br>end;<br>使用自定义的方法来创建窗口，就可以满足你OO的爱好。