很长一段时间,我TCustomPanel在我的应用程序中使用了名为MyContainer 的类的后代.我可以说是其他视觉控制的典型容器.这很好.有一天我意识到我根本不使用面板功能,所以我可以直接派生出MyContainer TCustomControl.
在这样做之后,当使用鼠标调整MyContainer的大小时,我会遇到儿童控件(例如对齐的TMemo)的可怕闪烁.这太可怕了 - 看起来整个TMemo已经消失了一会儿,所以我可以看到背景.MyContainer自己画得很好 - 这只是儿童控件的问题.
当MyContainer来自TCustomPanel时,它没有发生.我缺少什么,在哪里？子控件是双缓冲的,MyContainer也是.我使用Delphi 7个人版,所以我没有VCL源代码,因此我无法将TCustomPanel与TCustomControl实现进行比较.处理WM_EXITSIZEMOVE和WM_ENTERSIZEMOVE消息(启用/禁用子对齐)没有帮助.
我相信我的问题与擦除控制背景有关.作为我向TCustomControl"迁移"的一部分,我将以下代码添加到Paint方法:
Canvas.Font.Assign(Font);
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := Color;
PatBlt(Canvas.Handle, Canvas.ClipRect.Left, Canvas.ClipRect.Top, Canvas.ClipRect.Right, Canvas.ClipRect.Bottom, PATCOPY);
没有这个代码,子控件不再闪烁,但父控件的绘制被破坏了.