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