form腔靡備ㄛ睡蛌倰換?(100分)

N

nite

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-23

• #1

恀扂衄珨procedure狟:
showform(FormClass:TFormClass; Var form);

mvForm岆扂植stringlist笢堤form腔靡備ㄛ睡蛌倰換?

var mvForm:string;

mvForm:=FFormList.Strings[0];

 

小

小刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #2

什么马？？
天书？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #3

同志，用简体中文或英文吧

 

N

nite

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #4

sorry,我重贴一次
请问我有一procedure如下:
showform(FormClass:TFormClass; Var form);

mvForm是从stringlist取出的form name,如何转型传入?

var mvForm:string;

mvForm:=FFormList.Strings[0];

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #5

这个可就难了。

 

L

liguang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #6

你是真有想象力啊!这样转型基本是不可能的，但是可以自己写一个function利用一个for循环，
然后查找Screen.Forms对象中的所有Form的Name,找到了即是，没有找到即没有。
或者将Form对象本身存储到一个TList对象中，然后直接赋值也可。总之方法多多，没有必要在一
棵树上吊死。
你住在台湾吗？台湾那边有没有什么好的Delphi电子杂志（不是论坛性质的），能否推荐给我一
本。

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #7

不行的，试试这个办法，
tag := LongInt(aForm);
showform(tag);

procedure showform(i: Integer);
begin
TaForm(Pointer(i)).Show;
end;

 

N

nite

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-24

• #8

多人接受答案了。