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