*******帮忙呀！！有关对话框的简单操作********

Question

我想实现这个功能，不知道怎么做：
  在主窗体点击一个Button或者由某件事触发另一个事件的时候，跳出一个对话框，提示“继续么？”对话框中有Yes和No，我想在弹出对话框的时候开始计时，然后如果在一个时间段内比如1分钟之内既没点击Yes也没点击No则系统强制执行点击NO的操作。
  请教如何实现！！

Answer 1

不知道不过你用这种方法试试：自己做一个窗口，跟对话框一样，中上面放一个Timer去做

Answer 2

没弄好吗？
给你些代码吧，应该可以实现你说的问题
已10秒钟为例
procedure TForm1.Timer1Timer(Sender: TObject);
var
  h:HWND;
begin
  h:=FindWindow(nil,'Information');
  if h>0 then
    PostMessage(h,WM_CLOSE,0,0);
  Timer1.Enabled:=False;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval:=10000; //一分钟改为60000
  Timer1.Enabled:=True;
  if MessageDlg('aaa',mtInformation,[mbYes,mbNo],0)=mrYes then
  begin
    Timer1.Enabled:=False;
    //你要执行的程序
  end;
end;

Answer 3

可以添加一个Form然后添加Timer控件，来控制就容易多了