OnActivateイベントでcloseを有効にするには？

解決

Aｓ 2012-05-11 17:43:32 No: 42164 IP: 192.*.*.*

今日は。
また、くだらないことかもしれませんが、よろしくお願いします。

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;

編集削除

au 2012-05-11 18:33:03 No: 42165 IP: 192.*.*.*

closeの代わりにPostMessage(Handle,WM_CLOSE,0,0)を実行したら良いかと

編集削除

As 2012-05-11 19:42:13 No: 42166 IP: 192.*.*.*

auさん、ありがとうございました。

また、よろしくお願いします。

編集削除