怎样从客户端传一个TForm到中间层,并在中间层中引用此FORM的方法?(100分)

N

nxfbccu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #1

我这样做不行:
在中间层中定义一个方法:
procedure SetAllMenuRight(const pForm: WideString);
var
_pForm: TForm;
begin
_pForm := Application.FindComponent(pForm) as TForm;
end;
上面的转化好像会出错,到底在过程中该设什么类型的参数,又要如何转化,请各位高手帮忙啊!

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #2

你这样试一试：
procedure SetAllMenuRight(const pForm: WideString);
var
_pForm: TForm;
begin
_pForm := TForm(Application.FindComponent(pForm)) as TForm;
end;

 

0

011101

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #3

關注.
應該不行

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #4

这样算不算得上是一种好方法呢？一定要这样做吗？？？

 

A

alum

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #5

中间层和客户端是同一个应用程序吗？
不是的话你就别折腾了。

 

H

headlm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #6

反过来应该可以吧。

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #7

中间层，关注的是业务的封装。如果你需要这样做，只能说明设计有问题了!
需要从新设计

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #8

dcom 可以做到 中间层 调用 客户端的方法。
但不能 通过传 TForm来完成

 

N

nxfbccu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #9

我主要的想法是:客户端每个FORM通过调用中间层的这个方法来设置FORM上所有按钮的权限.
所以客户端必须传一过FORM过去,
有其它好的设计方法吗?

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #10

权限也可是用一串字符来做为返值返回，例0为没有权限，1为有权限，这是最简单的法子了

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-24

• #11

楼上的说法没错，传给客户端一个权限字串。

 

C

clihean

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-30

• #12

一个简单的问题，为什么要用一个复杂的方法来解决呢??????????
郁闷!!!!!!!!!!!

 

W

weiwei_lxl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-30

• #13

应该是不可以传TFROM的。

 

H

hhnick

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-31

• #14

想法有些直接了，换一种思路吧。