如何消除大量更新窗口内容时的闪烁现象？

[edpzjh]

大量更新窗口内容时, 窗口的闪烁现象严重, 用SendMessage(handle, WM_SETREDRAW, 0, 0)及SendMessage(handle, WM_SETREDRAW, 1, 0)好象不能解决问题.

[kxy]

要具体分析,你更新什么?

[edpzjh]

动态产生DBGrid控件, 程式如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
if FDBGrid <> nil then
FDBGrid.Free;

FDBGrid := TDBGrid.Create(Self);
FDBGrid.Parent := Self;
FDBGrid.Align := alClient;
FDBGrid.DataSource := dsTPC;
end;

[kxy]

你的DBGrid一定要动态生成吗?为什么要动态生成?
可以说一下原因吗?

[edpzjh]

这是用户介面设计的需要，如同Microsoft Money所有的用户介面都在同一个窗口上完成所以很多控件都是动态生成的.

[kxy]

用TabSheet或者PageCtrl不就行了.
你可以使用Spy来看看Money的界面是什么.
另外,如果你一定要动态,我试一试看有否办法.

[kxy]

是闪的严重,用TNoteBook吧.

[edpzjh]

用SendMessage(Handle, WM_SETREDRAW, 0, 0)可以消除闪烁,但为何SendMessage(Handle, WM_SETREDRAW, 1, 0)及Invalidate后窗口并不更新?

[kxy]

我试了一下,效果可以,用TNoteBook.

[kxy]

我试了半天,又看了一会儿源码,没有看出来
sorry我也不知道.如果用SendMessage(Application.Handle, WM_SETREDRAW, 0, 0)
倒是可以,不过效果和不用一样.
BTW:用TNoteBook不好吗?

[edpzjh]

没办法，只好用TNoteBook了.