Question

delphi 如何让showmessage更改窗中模式

我想要让showmessage变成一个有‘确定’ 和‘取消’两个按钮的窗口，然后根据点击这两个不同的按钮而响应不同的事件。
请跟我讲讲怎样把窗口变成这种模式并且怎样获取返回值，谢谢！

Answer 1

楼上的写法固然可以，但一点注释也没有未免太不负责任，其实这样写就可以了
MessageDlg('no found',mtInformation,[mbOK],1);

'no found'里面可以替换成其他内容

Answer 2

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
userResponse:integer;
begin
userResponse := MessageDlg('Choose Yes no or Cancel?', mtConfirmation, mbYesNoCancel, 0);
case userResponse of
idYes: ShowMessage('You choose Yes');
idNo: ShowMessage('You choose no');
{if the response is Cancel nothing will happen...}
idCancel: ;
end;
end;

end.