ログイン画面表示（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;