如何改变InputBox的字体？

Question

如题。
用默认的字体老是出现最后一个半边显示不出来

Answer 1

procedure InputBoxSetPasswordChar(var Msg: TMessage);
  message InputBoxMessage;
procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);
begin
 with Screen.Forms[0] do
  begin
    TButton(Controls[2]).SetFocus;
    TEdit(Controls[1]).font.name:='宋体';
    TEdit(Controls[1]).SetFocus;
    font.Name:= '宋体';
    font.Size:=15;
  end;end;procedure TForm1.Button1Click(Sender: TObject);
var
  InputString       : string;
begin
  PostMessage(Handle, InputBoxMessage, 0, 0);
  InputString := InputBox('Input Box', '输入字符', '');end;end.