[Delphi]入力ダイアログボックス InputBox


※全てのDelphiで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

InputBoxはパスワードの入力画面などで使えます


下記を実行すると

procedure TForm1.Button1Click(Sender: TObject);
var
    w_data: String;
    res: Integer;

begin

    w_data := InputBox('パスワード入力画面', 'パスワードを入力して下さい', '*******');


    If w_data = '' Then begin
        MessageDlg('パスワードは必須入力です', mtWarning, [mbOK], 0);
        Exit;
    End;

    //[キャンセル] ボタンを選択すると、InputBox はデフォルト値を返します。
    If Length(w_data) < 8 Then begin
        MessageDlg('パスワードは8文字以上です', mtWarning, [mbOK], 0);
        Exit;
    End;


end;

このような画面が表示されます。

delphi-inputbox