inputbox-inputquery-messagedlg

InputBox

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str := InputBox('输入窗口标题', '输入提示', '默认输入内容');
  Label4.Caption := str ;
end;

InputQuery

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
  bol:Boolean;
begin
  bol:=InputQuery('输入窗口标题','输入提示',str);
  if bol =true then
    Label3.Caption :='true   '+str
  else
    Label3.Caption :='flase'
end;

区别：

//InputBox 可获取用户输入的字符串

//InputQuery 可返回一个 Boolean 值, 可判断用户是确认还是取消

>InputBox 是调用了 InputQuery, InputQuery 是通过一个 var 参数获取新字串:

MessageDlg

begin
  if MessageDlg('即将退出，是否继续？',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  Close; 
end;

对话框类型：

mtwarning——警告(感叹号)

mterror——错误(红色叉号)

mtinformation——提示(蓝色i符号)

mtconfirmation——确认（绿色问号）

mtcustom——自定义（不含图标）

按钮组中的按钮：

mbYes——mrYes或6

mbNo——mrNo或7

mbOk——mrOk或1

mbCancel——mrCancel或2

mbHelp——help按钮

mbAbort——mrAbort或3

mbRetry——mrRetry或4

mbIgnore——mrIgnore或5

mbAll——mrAll或8

mbNoToAll——9

mbYesToAll——10