Delphi 中 InputQuery 的 Label 在部分电脑上显示不完整

  开发过程中遇到一个问题，使用 Dialogs.InputQuery(const ACaption, APrompt: string; var Value: string) 时，在部分笔记本电脑上会出现 APrompt 的内容显示不完整，被截断了，对比后发现出现这种情况时，字体的间隔明显比正常显示的字体间隔大，于是就重写了 Dialogs.InputQuery，指定 APrompt 的  Label字体格式、字符编码、字体大小后，即解决问题

    Prompt := TLabel.Create(Form);
    Prompt.Font.Name := '宋体';  
    Prompt.Font.Size := 10;
    Prompt.Font.Charset := GB2312_CHARSET;