掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メインフォーム非表示でApplication.Run後に処理をするには？ (ID：14215)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>１．コマンドライン引数が無→画面表示．フォームCloseで終了 > コマンドライン引数が有→画面非表示してあるメソッドを実行して終了 を実現するコードです． フォームが非表示の時は，MainSyoriの内容にもよりますが，通常(?) MainSyori が終了すればアプリは終了します． MainSyoriの最後にMainForm.Closeは必要ありません．何故なら表示して いなのですから．りおりおさんのレスと合わせて解読して下さい． begin Application.Initialize; Application.CreateForm(TFormMain, FormMain); if ParamCount=0 then begin Application.Run; end else begin Application.ShowMainForm := False; FormMain.MainSyori; end; end. MainSyoriは例えば... procedure TFormMain.MainSyori; begin ShowMessage('コマンドラインに引数がありません'); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.