掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ログイン画面表示（DELPHI FIVE) (ID:37535)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでは？ ちゃんとやるなら暗号化とか必要でしょうけど。 Form1 : もとのフォーム Form2 : 入力ダイアログ Form3 : 目的のフォーム procedure TForm1.Button1Click(Sender: TObject); begin Form2.ShowModal; end; procedure TForm2.Button1Click(Sender: TObject); var ID, Pass : string; begin //IDとPassを定義 ID := 'ID'; Pass := 'Pass'; //照合 if (edit1.text = ID) and (edit2.text = Pass) then begin Form2.ModalResult := mrOk; Form3.Show; end else begin showmessage('不正な ID または Pass'); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.