掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
処理期間中の「実行中・・」の表示と消滅をさせるには？ (ID:23522)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になっております。環境はDelphi ６ Personalです。 「質問」 起動中に、なにか時間のかかる処理をする間「ただ今・・・を実行中です。しばらくお待ちください。」というダイアログが表示されて、処理が終わったら自動的に消える場面がありますが、 これをやりたいのですが、方法が解りません。 メイン画面から、補助的な処理をさせたい場合（たとえば関連データファイルの整理整頓など）、処理が終わるまでメイン画面のあらゆる操作をできないようにしたいのです。 処理専用のサブフォームを作りShowModalで処理フォームを開けば、他の操作ができないだろうとやってみたのですが、実際にはフォームは表示しないで、処理が終わってから表示します。 procedure TForm1.ToolButton1Click(Sender: TObject); begin formSyori := TformSyori.Create(Form1); formSyori.ShowModal; end; 処理フォーム procedure TformSyori.FormShow(Sender: TObject); begin {処理コード}この処理が終わるまで、メイン画面の他の操作はさせたくない。 end; 補助的な処理（処理中はボタン操作はない。開始して終了を待つだけ）を開始するとダイアログを表示させて終わったら表示が消えるようにするには、なにかコンポーネントがあるのでしょうか？ ご教授をお願いいたします。m(_ _)m
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.