掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
すべてのFormのCreateFormが終わる前にプログラムを終了させるには？ (ID:38211)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
（かなり省略していますが、こんな感じです。） --------------------------------------------------- procedure TForm1.FormCreate(Sender: TObject); Begin if Dounload='OK' then else if Dounload='NG' then begin Application.MessageBox(pchar('ログインできません。'), pchar('softwarename'), MB_OK ); Application.Terminate; //halt //haltなら、ここでプログラムが終了します。; End; End; function tForm1.Download:string; Begin result:=WinInetのInternetReadFile()でリクエスト※ID,パスワードなどをGetで送信するので、アドレスなどここで詳しくかけません。すみません。とにかく、OK か NGが帰ってきます; End; ------------------------------------------------- とにかく、NGが帰ってきたら、Formをまったく出さずに、忠告のダイアログだけを出して、すぐにプログラムを終了したいです。 『Form2を「自動生成の対象」から「選択可能なフォーム」に移して、 ダウンロードした値がOKならば、Form2をコードで生成すればいいんじゃない？』 ができれば、解決しますか？ （「選択可能なフォーム」に移して、が、よく分かりません） よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.