如何解决主从结构的窗体中,子窗体全屏弹出缓慢的效果.

Question

主窗体
FormStyle:=fsMDIForm子窗体
FormStyle:=fsMDIChild
WindowState:=wsMaximized ; //子窗体全屏子窗体弹出的时候不是一下子跳出来.而是明显的有个自下而上的弹出效果.
有什么办法让子窗体很快的弹出来.这样视觉上比较舒服.感觉软件运行速度很快.这是客户对我们的一个建议,目前我们告诉用户这个技术问题美有办法解决.

Answer 1

各位兄弟,这个问题对我非常重要,大家帮帮忙啊http://www.yzsoftware.com/bbs/show.asp?id=484&bd=2&totable=1

Answer 2

窗体的load里面自己写localtion

Answer 3

如下这样,处理一下CM_SHOWINGCHANGED,
但这样,有些负作用,就是子窗体收不到OnShow,OnHide,还有在
WindowMenu下列不出子窗口,可能还有其他的一些负作用,unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Consts;type
  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}{ TForm2 }{ TForm2 }
procedure TForm2.CMShowingChanged(var Message: TMessage);
begin
  SendMessage(Application.MainForm.ClientHandle, WM_MDIMAXIMIZE,
              Handle, 0);
end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;end.