关于窗口同时打开的监测？？！[急急急！](100分)

Y

yeser_macao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #1

各位高手，我的程序想同时打开同一个窗口，并且我想监测到这个窗口是否已经打开，请问我该怎么做？

 

X

xjzcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #2

if Application.ClassName='Name' then

 

Y

yeser_macao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #3

回答问题的大侠，我是新手，你能写详细一点吗？

 

F

fuhuaming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #4

if FormName=nil then
FormName:=TFormNam.create(nil);
FormName.show;
判断窗体名是否为空，空则创建窗体，然后show；不空则直接show

 

Y

yeser_macao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #5

fuhuaming，你没懂我的意思。我不想创建，我想监测，例如我的主窗口名：main
子窗口名称：test_A 在main里调用test_A，如果没有开test_A，则直接打开该窗口，
如果已经打开了，则提示：“是否再次打开！”

 

W

wolf_cyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #6

yeser_macao，你可以这样：

windowtext : array of char[255];//标题
windowtext := GetWindowText(GetForegroundWindow,windowtext,255);
if(windowtext='你的窗口') then
begin
提示：窗口已经打开了。
end
else
test_A.show();

 

W

wab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #7

不好意思，看错了。。。。

 

Y

yeser_macao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #8

wolf_cyj，不是吧，不行啊？？错误提示：':='expected but':' Found
'('expected but '[' Found
Incompatible types:'Integer' and 'pchar'
我知道，你说的方法好象可行，但还是有这样的错误，摆脱在解决一下。非常感谢！

 

W

wolf_cyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #9

对不起，我写错了，是
array[0..255] of char

 

H

happyloner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #10

up

 

Y

yeser_macao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #11

wolf_cyj,还是不行啊？？
windowtext : array of char[255];//标题
windowtext := GetWindowText(GetForegroundWindow,windowtext,255);
这两句是不是在定义变量啊？写在 Var 后面吗？

 

Y

yeser_macao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-01

• #12

多人接受答案了。