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

解決

Aｓ 2012-05-12 02:43:32 No: 42164

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

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-12 03:33:03 No: 42165

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

As 2012-05-12 04:42:13 No: 42166

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

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