OnResizeイベントの発生について (ID:11701)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

皆さんこんにちは。

OnResizeイベントの発生時期に関してなのですが、
下記に様な2つのフォームがあり(TForm2にはTMainMenuが追加されています）、
１．Form1のButton1Click()によって、TForm2のインスタンスの生成及びShowメソッドを呼び出す。
２．Form1のButton2Click()により、TForm2のインスタンス破棄を行う。
とした場合、TForm2のOnDestroyイベントの発生の後に、TForm2のOnResizeイベントが発生します。

ところが、TForm2にあるTMainMenu削除すると、上記を同じ手順で行っても
TForm2のインスタンス破棄した場合に、TForm2のOnDestroyイベントのみが発生します。
こちらの動きが正常だと思うのですが、TMainMenuの有る無しでこのような動きの違いが
発生するものなのでしょうか？ それとも、私の環境だけの特殊な動きなのでしょうか?

環境は、Window's 2000 SP1、Delphi7です。

-----------------------------------------------------------------------------------------------
Unit1.pas

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyForm2 := TForm2.Create(self);
  MyForm2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MyForm2.Free;
end;

-----------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------
Unit2.pas
procedure TForm2.FormResize(Sender: TObject);
begin
  ShowMessage('resize');
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  ShowMessage('destroy');
end;
-----------------------------------------------------------------------------------------------

←解決時は質問者本人がここをチェックしてください。

戻る