inputbox函数中的提示字符字体及大小可以改变吗？

[easygoals]

inputbox函数中的提示字符字体及大小可以改变吗？

[lxpbuaa]

不能直接改。inputbox内部调用InputBox：
function InputBox(const ACaption, APrompt, ADefault: string): string;
begin
Result := ADefault;
InputQuery(ACaption, APrompt, Result);
end;
InputQuery是这么实现的：
function InputQuery(const ACaption, APrompt: string;
var Value: string): Boolean;
var
Form: TForm;
Prompt: TLabel;
Edit: TEdit;
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
begin
Result := False;
Form := TForm.Create(Application);
with Form do
try
Canvas.Font := Font; //从这里可以看到，它使用了默认字体，如果要自己修改，必须改这里的Font
……
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————