如何消除MDI主窗體在創(chuàng)建MDI子窗體時的閃爍

kenwang 2007-05-17

展開全文

看看這個對你有沒有用吧
作者: 輕舞肥羊
標題: 解決MDI子窗體建立時動畫閃爍問題
關鍵字: MDI
分類: 開發(fā)經驗
密級: 公開
(評分: , 回復: 0, 閱讀: 262) »»
MDI子窗體如果在設計期最大化,那么在建立窗體的時候會有一個從普通狀態(tài)到最大化的動畫
過程,如果MDI子窗體上的控件太多則會發(fā)生比較強的閃爍現(xiàn)象,下面實現(xiàn)一個基類解決此問題,
機制是通過鎖定MDI主窗口的更新來實現(xiàn),缺點是要引用MDI主窗體或使用全局變量記錄句柄.
http://www./delphibbs/dispq.asp?lid=2066407

type
TFrmBaseMDIChild = class(TForm)
public
    constructor Create(AOwner: TComponent);reintroduce;override;
end;

constructor TFrmBaseMDIChild.Create(AOwner: TComponent);
begin
//MDIMainForm為MDI主窗體,如果不想引用,可以用全局變量保存
LockWindowUpdate(MDIMainForm.Handle);
try
    inherited;
finally
    LockWindowUpdate(0);
end;
end;

另外一種解決方法(好象有問題,有待測試)
覆蓋CreateNew方法來解決,缺點是設計期指定的FormState屬性無效.
一定要在代碼中指定.否則覆蓋這個方法就失去了意義.
type
TFrmBaseMDIChild = class(TFrmBase)
public
    constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0);reintroduce;override;
end;

constructor TFrmBaseMDIChild.CreateNew(AOwner: TComponent; Dummy: Integer);
begin
inherited;
WindowState := wsMaximized; //這里指定狀態(tài)為最大化,不會產生閃爍
end;