delphi - Delphi は、AnimateWindow を使用して最大化された MDI 子を作成します

Question

私は MDI フォームを使用したアプリケーションを持っており、Animatewindow().

私の質問は、すべての MDI フォームが でWindowstate=wsMaximizedあり、デフォルトのクラシック ウィンドウのサイズ変更とアニメーションを表示せずにフォームを作成する方法がわからないということです...

これは私がしようとしているものです:

procedure FORMCREATOR(t_form:tformclass);
var form:tform;
begin
    frmain.sPanel5.Hide;
    frmain.LockClientWindowUpdate;    
    form:=t_form.Create(frmain);

// ところで、"t_form.Create(frmain);" の代わりに "t_form.Create(application)" を実行すると エラーが発生します..そして「....（frmain）」では、この手順の外では「form.button1.caption:='test'」のようなフォームにアクセスできません。アクセス違反です！.. 助けて！

    frmain.UnlockClientWindowUpdate;  

    AnimateWindow(form.Handle,500,AW_CENTER or AW_SLIDE or AW_VER_POSITIVE); 
end;

したがって、これを呼び出すと、フォームがないように作成されAnimatewindow()ます...最大化されて表示されるだけで、効果はありません:( ..

皆さん、ちょっと手を貸してください！ありがとう。