有没有无模式的对话框？(20分)

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #1

我想在运行到某个地方的时候跳出一个对话框，但是后面的代码要继续执行，有这样的对话框吗
比如
procedure TForm1.Button1Click(Sender: TObject);
begin
Messagedlg('请输入书号¡',mterror,[mbok],0)
//到这里就停止运行了，知道用户做出响应
edit1.Text:='a';
end;

 

沙

沙_儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #2

自己做一个窗体把。

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #3

我也想过，肯定没问题。就是想问问有没有现成的：）

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #4

不知你到底在不在对话框上让用户输入内容，如果是的话有现成的（也是模式的，不过能
满足要求，用InputBox），对于你不想让用户输入内容的要求那就有点不大合规范了。

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #5

哦，是这样的：
....
....
if(application.MessageBox('试验到达起始点，是否继续加载？','确认加载'
mb_yesno+mb_iconquestion)<>idno) then
begin
do something
end;
...
...
我是想在弹出messagebox后，'...'的代码继续执行，而'do something'要用户响应后再执行
有什么好办法吗

 

S

shbjkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #6

多线程

 

L

lxn2philips

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #7

还吵吵什么

同意沙_儿

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #8

靠-------------没办法，那就自己做：（

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #9

呵呵，逻辑上好象有问题，换个想法吧。

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #10

多人接受答案了。