掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Timerで呼び出したウィンドウのEinvalidoperationをなくす方法は？ (ID:42242)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Dmakingを procedure TForm2.Ddmaking; var ms: TMemoryStream; begin ms := TMemoryStream.Create; try IdHTTP1.Get('http://www.yahoo.co.jp',ms); ms.Position := 0; memo1.Lines.LoadFromStream(ms); finally ms.Free; end; end; この様にして Form2にTimerを追加してそのOnTimerイベントで procedure TForm2.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; Dmaking; Sleep(2000); //直ぐに消えてしまうのを防ぐ PostMessage(Handle,WM_CLOSE,0,0); end; こんな風にしましたけどエラーは出ませんね。 Form2.Timer1のIntervalは1000、EnabledはTrueです。 やはりネット接続自体がエラーの原因ではなく その結果の処理中に起こるのだと思います。 Form2はどのタイミングでCloseしますか？ また、Form2がいくつも立ち上がるというのはForm2が複数同時に表示されるという意味ですよね。 少なくともアップされたソースでは同時表示されることはないです。 定期的に何度も表示されるのはプログラム通りですが。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.