3.小弟初学，迷惑3，请高手帮助。

Question

   窗体中有一个按钮，我想问的是，我要实现按钮的功能是：
单击它会出现一个提示对话框，（其有两个按钮，一个ok,另一个cancel）单击ok退出程序，单击cancel
继续在程序中。

Answer 1

MessageDlg就OK了
procedure TForm1.Button1Click(Sender: TObject);begin
  if MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
  begin
    MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0, mbOk);
    Close;
  end;end;