Delphi 7 - 如何使用输入框

Question

我正在编写一个程序，您必须在输入框中输入密码才能访问该程序的最小功能。但是，如果您单击输入框中的“取消”，我的程序会出现错误消息。所以我想知道是否有人知道我如何才能做到这一点，因为通过 Messagedlg 我知道你使用 IF 。但是我怎样才能用 InputBox 得到它呢？

Answer 1

InputBox() 如果对话框被取消，则返回一个空字符串，例如:

var
  Pass: String;

Pass := InputBox('Password needed', 'Enter the password:');
if Pass <> '' then
begin
  // use Pass as needed...
end;

或者，使用 InputQuery() 代替，它返回一个 Boolean 来指示对话框是否被取消，例如:

var
  Pass: String;

if InputQuery('Password needed', 'Enter the password:', Pass) then
begin
  // use Pass as needed...
end;