掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
OnActivateイベントでcloseを有効にするには？ (ID:42164)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
今日は。 また、くだらないことかもしれませんが、よろしくお願いします。 OnActivateを使って、progressbarを表示して、済んだらwindowを消すためにcloseを使っていましたが、XE2では、作動しません。 試しに、簡単なプログラムを組んで試してみましたが、確かにcloseが働きません。 どうしたらいいでしょうか？ procedure TIndexMain.Button1Click(Sender: TObject); begin Making:=TPMaking.Create(Application); Making.ShowModal; Making.update; end; procedure TPMaking.Button2Click(Sender: TObject); begin close; //働きます end; procedure TPMaking.OnActivate(Sender: TObject); var n:integer; begin for n :=1 to 20000 do edit1.Text:='Good Hellow'; close; //効果ありません。 end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.