procedure TForm1.btn1Click(Sender: TObject);
begin
ShowMessage('这是ShowMessage消息框');
ShowMessage('这是ShowMessage换行消息框' + #13#10 +http://www.cnblogs.com/yangxuming/');
MessageDlg('这是MessageDlg消息框', mtCustom, [mbOK], 0);
if MessageDlg('这是MessageDlg消息框', mtWarning, mbOKCancel, 0) = mrOk then
begin
//···
end;
Application.MessageBox('这是Application.MessageBox消息框', '标题', MB_OK);
if Application.MessageBox('这是Application.MessageBox消息框', '标题', MB_OKCANCEL + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_TOPMOST) = IDOK then
begin
//···
end;
MessageBox(0, '这是MessageBox消息框', '标题', MB_OK);
MessageBox(Handle, '这是MessageBox消息框', '标题', MB_OK);
case MessageBox(Handle, '这是MessageBox消息框', '标题', MB_YESNOCANCEL + MB_ICONSTOP + MB_DEFBUTTON3) of
IDCANCEL:
begin
//···
end;
IDYES:
begin
//···
end;
IDNO:
begin
//···
end;
end;
end;
转载于:https://www.cnblogs.com/yangxuming/p/6663607.html