动态窗体SHOW后如何在其他事件中关闭？(50分)

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #1

动态创建时：
if Form2=nil then Form2:=TForm2.Create(Self);
Form2.Show;

在另一个事件中，如果动态创建，
则关闭它
IF FORM2<>NIL THE FORM2.FREE;
或
IF FORM2<>NIL THE FORM2.FREE;
都会报错
如果真正关闭它？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #2

试试：
Wnd: HWND;

Wnd := FindWindow('TForm2',nil);
if Wnd<>0 then PostMessage(Wnd, WM_CLOSE, 0, 1);

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #3

IF FORM2<>NIL THE
begin
FORM2.Close;
form2:=nil;
end;

 

H

hb_wshsh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #4

if assigned(form2) then
begin
form2.free;
form2:=nil;
end;

 

叮

叮叮当当

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #5

应该是这样：
procedure TForm1.CloseForm2;
var
Handle: HWND;
begin
if Form2 <> nil then
begin
SendMessage(Form2.Handle, WM_CLOSE, 0, 0);
repeat
Handle := FindWindow('TForm2', Form2.Caption);
Application.ProcessMessages;
until Handle = 0;
FreeAndNil(Form2);
end;
end;

 

Q

quickchop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #6

直接将其关闭。
if not assigned then fomr2:=tform2.create(self)；
然后关闭

 

L

lyplay2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #7

多人接受答案了。