怎样将字符串转化成引用一个对象的指针？例如要从"Form1"转换成Form1，怎么搞定？谢谢(50分)

I

ildg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #1

如果f是一个窗口，就是一个tform的类，就可以用
f.show，但如果f是一个字符串（和某个窗口的名字一样的字符串）就不行，
但是我现在就是要用一个字符串打开一个窗口，比如说我现在有一个
字符串s，它的值是"Form2"，怎么根据s来打开form2？
谢谢

 

B

blue_morning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #2

findcomponent('String')返回一个TComponent

function FindComponent(const AName: string): TComponent;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #3

这方法不错，但findcomponent 好象 是 TComponent 的一个成员函数，
要查找，首先要知道 要查找控件的 Owner ，然后在Owner中查找，
TForm 的Owner 是谁？？？是 DeskTop 吗？

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #4

查找窗口名字onwer简单取nil就可以

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #5

但是这个 nil 怎么来调用 findcomponent？

 

S

SanDao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #6

Findcomponent函数的原理很简单，就是循环遍历！
下面是delphi中的源码！
function TComponent.FindComponent(const AName: string): TComponent;
var
I: Integer;
begin
if (AName <> '') and (FComponents <> nil) then
for I := 0 to FComponents.Count - 1 do
begin
Result := FComponents;
if SameText(Result.FName, AName) then Exit;
end;
Result := nil;
end;

 

X

xman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #7

up

 

G

gxcooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-18

• #8

function FindComponent(const AName: string): TComponent;

 

J

jsbhwjg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-18

• #9

一般来说，Form的Owner是Application,如程序自动创建的Form

 

L

liangtianyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #10

function FindComponent(const AName: string): TComponent;

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #11

该结了吧？

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #12

TForm(Application.FindComponent(s)).Show;