1.ShowMessage(‘要显示的字串’);
2.application.MessageBox(‘你好!在做测试!’,’提示:’,0);
3. var i:word;
begin
i:=MessageDlg(‘文件被修改,是否保存?’,mtConfirmation,[mbyes,mbNo,mbCancel],1);
end;
4.Application.MessageBox(‘你好’,’提示:’,MB_YESNOCANCEL);
5.
var str: string;
begin
str := InputBox(‘汉字相关字段’, ‘请 输 入 汉 字’, ‘如:眼镜’);
if rz.Text=null then
begin
ShowMessage(str); //显示输入的内容
end;
end;
Delphi中关于消息弹窗的总结
最新推荐文章于 2025-04-12 12:16:22 发布