Application.MessageBox(Pchar('号码:' + dm.qry1.ParamByName('p_1').AsString+ '删除成功!'), '提示', MB_OK + MB_ICONINFORMATION);
Application.MessageBox(Pchar('注意,昨天的日期是:' + dateToStr(now-1) + '!'), '提示', MB_OK + MB_ICONINFORMATION);
//提示中,#13#10可作为换行符,'#13'也可以,结果一致,具体如下:
Application.MessageBox('1.测试第一行'+#13#10+'2.测试第二行', '说明', MB_OK + MB_ICONINFORMATION);
Application.MessageBox('1.测试第一行'#13'2.测试第二行', '说明', MB_OK + MB_ICONINFORMATION);
delphi Application.MessageBox 添加数据提示
最新推荐文章于 2020-02-27 02:19:18 发布