如何传递Form.Onclose事件的参数(50分)

S

saga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #1

我在form1中要调用form2.onclose事件，请问参数应该怎么传递？

另一个问题，我在用ParamStr(),传递参数时，为什么遇到这样的路径，他就出错？
例如(c:/program file/****/***) 中间有空格时就取前面的c:/program，后面的
路径都没有了，这个应该怎么处理？

 

碧

碧血剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #2

form2.onclose(form1, cafree);后一个参数看情况而定
ParamStr()没问题,不知你是怎么用的,估计是你那里用错了

 

S

saga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #3

Var
FilePath:String;
begin
FilePath:=ParamStr(1);
end;
我要这个传进来的路径参数，可是怎么路径中间有空格就不行了呢？

 

碧

碧血剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #4

当然不行,因为程序把空格以后的当作下一个参数了

 

S

saga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #5

是阿，就是这个问题，我要怎么写才正确？？？

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #6

to ：碧血剑
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.onclose(form1,cafree);
end;
运行出错！

 

S

saga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #7

那个传递参数的呢？？？

 

碧

碧血剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #8

参数这样写"c:/program file/****/***)"就可以用Paramstr(1)
如果你只有一个参数还可以用下面的方法获得路径
if ParamCount>0 then
begin
s := '';
for i=1 to ParamCount do
s:=s+ParamStr(i);
end

 

S

slb_anders

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #9

根据Form2.OnClose 的内容而定，
如果Form2.OnClose 没有用到参数， 则可用Form2。Close
若用到参数，则
var
Action: TCloseAction;
AObject: TObject;
begin
AObject := ????;
Action := caFree;
Form2.OnClose(AObject, Action);
end;

 

S

saga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #10

多人接受答案了。