请教，主Form模态打开一个小Form，这个小Form的作用是选中一条记录,关闭后，主Form需要得到这条记录字符串的值(10分)

N

net_morning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-28

• #1

我现在是这样做的：
主Form定义一个全局变量并建立一个过程：setStr(..);小Form中的代码是Fmain.SetStr(..)
现在发现，非常多的Form要模态显示这个小Form取值，那么要很多的FXX.SetStr(...)，并且要uses很多的Fxx
有没有好办法，小Form里面不使用Fxx.setStr的方法？

 

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #2

function FormSelect(xxxx,xxxx,xxxx...): string;
begin
.................
Result := xxxx
end

 

Y

yuzk2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #3

setStr(..) 定义成系统共用函数

 

N

net_morning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #4

lyplay2，yuzk2005两位大侠，能否简单解释一下？[]

 

Y

yuzk2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #5

把函数定义到form外面 如下
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

function setStr(..): string;
var
Form1: TForm1;

implementation

{$R *.dfm}

function setStr(..): string;
begin

end;