掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
定期的に自動で「画面表示〜処理〜画面閉じる」をするには？ (ID：13339)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
常駐Exe（１年中立ち上げっぱなしのExe）で １．特定の時間になると、メインフォームの画面Ａから画面Ｂを自動的に表示。 ２．画面Ｂで処理を実行。 ３．処理終了後に画面Ｂを自動的に閉じる。 の処理を行いたいのですが、画面Ｂが閉じない事象が発生して困っています。 常に発生せず、今までに６回中、２回発生しています。 閉じない状態の画面Ｂの右上の×ボタン（ウィンドウを閉じるボタン）を押すと 「モジュール'xxx'のアドレスxxxxxxxxでアドレスxxxxxxxxに対する読み込み違反がおきました。」 画面Ｂ上の２つのボタンを押すと 「無効なポインタ操作」 「不正な引数が渡されました」 とエラーメッセージが表示されます。 画面Ｂを閉じることができず、Exeを終了するしかありません。 原因を教えて下さい。 バージョン：Delphi7 Enterprise 以下、ソースの概略です。 ■UnitA;（画面Ａ） procedure TFormA.OpenB; if FormB = nil then begin // コンストラクタ FormB := TFormB.CreateForm(Application); FormB.Main; ■UnitB（画面Ｂ） var FormB: TFormB; implementation constructor TFormB.CreateForm(Owner: TComponent ;); Create (Owner); procedure TFormB.Main; (* 画面Ｂで行う処理 *) FormB.Close; // TFormBのOnCloseイベント procedure TFormB.FormClose(Sender: TObject; var Action: TCloseAction); FormB := nil; Action := caFree;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.