Delphi 7 - 如何使用Inputbox

Question

我正在編程一個程序，您必須在InputBox中輸入密碼才能訪問程序最小特徵。但是如果你點擊inputbox上的取消，我有一個問題，我的程序會給出錯誤信息。所以我想知道是否有人知道如何才能做到這一點，因爲使用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;