[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;

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

 

1

ほかの Delphi の記事

[Delphi]例外処理 try except

[Delphi]動的配列 array of

[Delphi]型変換 IntToStr, CurrToStr

[Delphi]処理の分岐 case文

[Delphi]処理関連 Break, Continue, Exit

Ads Blocker Image Powered by Code Help Pro

誤表示の場合はおゆるし下さい。[更新]をタップして下さい。

この記事のQRコード
このサイトのQRコード