📄 dpi35.htm
字号:
<html>
<head>
<title>修改MessageBox的字体</title>
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
</tr>
</tbody>
</table>
<table border=0 bordercolordark=#66aaff bordercolorlight=#66aaff cellpadding=0
cellspacing=0 width=680 align="center" height="128">
<tbody>
<tr>
<td bgcolor=#F9D23C height=14>
<div align=center class=H1> <b><font size="3">修改MessageBox的字体</font></b>
<b></b></font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=730>
<p align="center"><b><font size="3"><br>
</font></b><br>
<br>
使用时与一般的WinAPI相差不多, 以下有一个包装过的函式.<br>
<br>
(* MsgBox('提示文字', '标题', ID_Flat) 讯息视窗<br>
(* ============================================<br>
(* 第叁个引数的设定与本函数传回值, 请参阅 WinAPI 中对<br>
(* MessageBox 的说明<br>
(*<br>
(* Delphi 1.0<br>
(* ----------<br>
(* 本函数传入值为 Object Pascal 式的字串, 如果需<br>
(* 要传入 PChar 请直接呼叫 Application.MessageBox<br>
(*<br>
(* Delphi 2.0<br>
(* ----------<br>
(* 以 PChar(LongStr) 即可传入 Application.MessageBox<br>
(* 不一定需要 call 本函数, 只是为了前後版本相容而保留<br>
(* 本函数<br>
(* -------------------------------------------------- *)<br>
function MsgBox(const sText, sCaption: string; wFlag: word): integer;<br>
{$ifdef Windows}<br>
{$define __ShortString}<br>
{$endif}<br>
<br>
{$ifdef Win32}<br>
{$ifopt H-}<br>
{$define __ShortString}<br>
{$endif}<br>
{$endif}<br>
<br>
{$ifdef __ShortString}<br>
var<br>
szText, szCaption: array[0..254] of char;<br>
{$endif}<br>
begin<br>
<br>
{$ifdef __ShortString}<br>
StrPCopy(szText, sText); (* 转换成 Null-Term. 型的字串 *)<br>
StrPCopy(szCaption, sCaption);<br>
Result := Application.MessageBox(szText, szCaption, wFlag);<br>
{$else}<br>
Result := Application.MessageBox(PChar(sText),<br>
PChar(sCaption),<br>
wFlag);<br>
{$endif}<br>
<br>
end; { MsgBox }<br>
<br>
转载自CPCW程序方舟<font
color=#ffa000><b><br>
</td>
</tr>
</tbody>
</table>
</div>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -