B
bywind
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么样才能耦合较少，???
A
anyway
Unregistered / Unconfirmed
GUEST, unregistred user!
建立一个代理类，在B中初始化
B调用A的时候，将代理类传出
A关闭时操作代理类
B调用A的时候，将代理类传出
A关闭时操作代理类
Z
zbr
Unregistered / Unconfirmed
GUEST, unregistred user!
在B中定义个公共变量，在A关闭前，把值赋给在B中定义的这个变量 。
N
nicai_wgl
Unregistered / Unconfirmed
GUEST, unregistred user!
关键是a窗体的参数存放在哪里的问题，定义个全局变量（对象）来存放，这样a、b窗体都不相关。
X
xmcccc
Unregistered / Unconfirmed
GUEST, unregistred user!
用消息吧,用消息,简单省事
E
errorcode
Unregistered / Unconfirmed
GUEST, unregistred user!
function GetChildData(AOwner: TCompoment
var Data1, Data2: string): Boolean;
begin
with TChildForm.Create(AOwner) do
try
Result := ShowModal = mrOK;
if Result then
begin
Data1 := Edit1.Text;
Data2 := Edit2.Text;
end;
finally
Free;
end;
end;
var Data1, Data2: string): Boolean;
begin
with TChildForm.Create(AOwner) do
try
Result := ShowModal = mrOK;
if Result then
begin
Data1 := Edit1.Text;
Data2 := Edit2.Text;
end;
finally
Free;
end;
end;
D
deepblue2004
Unregistered / Unconfirmed
GUEST, unregistred user!
比较笨的方法就是使用公用变量,如果引用窗体,那么被引用的窗体中的对象都是可用的!
A
anyway
Unregistered / Unconfirmed
GUEST, unregistred user!
不可以用全局
严重违背OOP的设计原则
这样只会增加模块间的耦合性
严重违背OOP的设计原则
这样只会增加模块间的耦合性
B
bywind
Unregistered / Unconfirmed
GUEST, unregistred user!
同意anyway观点,但是用消息传递不会
一
一条大鱼
Unregistered / Unconfirmed
GUEST, unregistred user!
写程序千万不要给这个原则那个原则给框死了
用消息?难道消息就不是全局变量了?就没有耦合了?
Delphi完全OOP吗?不是! 大把全局变量
用一个公共单元吧
用消息?难道消息就不是全局变量了?就没有耦合了?
Delphi完全OOP吗?不是! 大把全局变量
用一个公共单元吧
Z
zwz_good
Unregistered / Unconfirmed
GUEST, unregistred user!
在b中创建一个私有变量，在a创建时将它传入(传地址) 即可。
新
新世纪
Unregistered / Unconfirmed
GUEST, unregistred user!
同意大鱼的观点, 当然如果只是A与B之间交换, 我最简单的做法是:
B.Data := A.Data
// 前提是A虽然关闭(显示), 但A并没有销毁;
B.Data := A.Data
// 前提是A虽然关闭(显示), 但A并没有销毁;
风
风卷残月
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]有些人喜欢在窗体OnClose 里面加Action := caFree;[]
]有些人喜欢在窗体OnClose 里面加Action := caFree;[]
T
tianlove
Unregistered / Unconfirmed
GUEST, unregistred user!
学习~~
C
ChrisMao
Unregistered / Unconfirmed
GUEST, unregistred user!
在A中定义一个类方法(且命名为Perform)，在B中定义一个Protected变量(且命名为Data)，
B.Data = TClassA.Perform;
A中的Perform方法式至如下
class function String Perform;
begin
with TClassA.Create(Nil) do
try
//do something
if ShowModel = mrOk
then Result := some value
else Result := other value;
finally
Free;
end;
end;
B.Data = TClassA.Perform;
A中的Perform方法式至如下
class function String Perform;
begin
with TClassA.Create(Nil) do
try
//do something
if ShowModel = mrOk
then Result := some value
else Result := other value;
finally
Free;
end;
end;
