最小化の違いについて

解決

BCT 2005-06-11 03:12:00 No: 15557

フォーム最小化の際に、違った動きをするものが２つ出来てしまいました。

メインフォームから、別フォームを呼び出すことができます。
別フォームをクローズすると、メインフォームが見えるようになります。
（コードは下記）

メインフォームは最小化すると、ぱっと消えます。
別フォームはアニメーションして縮まり、画面左下に小さく残ったままになります。
ちなみにオプションなどを詳しく参照しましたが、特に設定に違いは見られませんでした。

この違いはなぜ起きてしまうのでしょうか？どうすれば均一になるでしょうか？
自力で調べてみたものの、解決しません、ご教授ください。

--------------------------------------------------------------------
//メニューから別フォームを表示
procedure TMainForm.ShowRecordMIClick(Sender: TObject);
begin
Hide;
SubForm.Visible:= true;
end;

//別フォームのクローズ時、メインフォームを「Visible := True」にする
procedure TSubForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Main.Visible := True;
end;

ん？ 2005-06-11 03:29:31 No: 15558

こんな感じ？

//宣言部
private
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

//実装部
procedure TSubForm.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType and $FFF0 = SC_MINIMIZE) then begin
    Application.Minimize;
  end
  else begin
    inherited;
  end
end;

BCT 2005-06-13 18:48:27 No: 15559

ん？さん、すばやい対応ありがとうございました。
書き加えたことで、両方のフォームともに、ぱっと消えるようになりました。

まだプログラム初心者なので、どうして成功したのかはわかりませんが、今後解読していきたいと思います。