提示对话框的问题，有些烦 (10分)

B

bloodymary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #1

我编了一个小程序，功能为，一运行就提示‘好好学习’，按‘确定’就退出
源代码：
在form1的oncreate事件中加入如下代码：
procedure TForm1.FormCreate(Sender: TObject);
begin
MESSAGEDLG(好好学习'',mtConfirmation,[mbOk], 0);
close;
end;
可问题是，每次退出时总有个窗口要闪一下！（能不能不闪一下呀？visible := false也不行！！！）
那位能解决一下，谢谢！

 

B

BeginDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #2

你说的退出是程序退出还是点了messagebox的确定，退出对话框呀？

 

H

hnxx2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #3

你在退出之前创建了哪些窗体？
先FREE它们再关闭程序吧。

 

B

bloodymary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #4

to BeginDelphi:
点了messagebox的确定，直接close了，见源代码
begin
MESSAGEDLG(好好学习'',mtConfirmation,[mbOk], 0);
close;
end;

 

B

bloodymary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #5

to hnxx2003
我什么都没有创建，只有一个form1,整个程序的源代码就是：
procedure TForm1.FormCreate(Sender: TObject);
begin
MESSAGEDLG(好好学习'',mtConfirmation,[mbOk], 0);
close;
end;

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #6

procedure TForm1.FormCreate(Sender: TObject);
begin
MESSAGEDLG(好好学习'',mtConfirmation,[mbOk], 0);
Application.ShowMainForm:=False;
end;

 

B

bloodymary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-20

• #7

to TYZhang
问题解决，谢谢