摘要： 1、标准写法（单个）： procedure TForm7.Button1Click(Sender: TObject); var strResult:string; begin if InputQuery('请输入密码：', '密码：', strResult) then begin caption:= 阅读全文