2016年2月25日
TWinControl.DefaultHandler处理WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC消息的两个参数很有意思，两个都是传递句柄
procedure TWinControl.DefaultHandler(var Message); begin if FHandle <> 0 then begin with TMessage(Message) do begin if (Msg = WM_CONTEXTMENU) and (Par Read More
posted @ 2016-02-25 23:39 findumars Views(912) Comments(0) Diggs(0)
研究一下FBrush，它是从TWinControl才有的属性（可能是因为需要句柄）——发现{$R *.dfm}在运行期执行，而且很有深意，读到属性后赋值还会触发事件，这些无法在VCL代码里直接看到
定义和创建： TWinControl = class(TControl) private FBrush: TBrush; end; constructor TWinControl.Create(AOwner: TComponent); begin inherited Create(AOwner); Read More
posted @ 2016-02-25 22:47 findumars Views(398) Comments(0) Diggs(0)
研究一下TForm.WMPaint过程（也得研究WM_ERASEBKGND）——TForm虽然继承自TWinControl，但是自行模仿了TCustomControl的全部行为，一共三种自绘的覆盖方法，比TCustomControl还多一种
先擦除背景： procedure TCustomForm.WMEraseBkgnd(var Message: TWMEraseBkgnd); begin if not IsIconic(Handle) then inherited else begin Message.Msg := WM_ICONE Read More
posted @ 2016-02-25 22:32 findumars Views(593) Comments(0) Diggs(0)
TPanel的默认颜色存储在dfm中，读取后在Paint函数中设置刷子的颜色，然后填充整个背景
声明如下： TCustomPanel = class(TCustomControl) private FFullRepaint: Boolean; FParentBackgroundSet: Boolean; procedure CMCtl3DChanged(var Message: TMessag Read More
posted @ 2016-02-25 22:14 findumars Views(518) Comments(0) Diggs(0)
终于懂了：TWinControl.DefaultHandler里的CallWindowProc(FDefWndProc)还挺有深意的，TButton对WM_PAINT消息的处理就是靠它来处理的（以前不明白为什么总是要调用inherited，其实就是没有明白TWinControl.DefaultHandler的真正用处）
我忽然发现：TButton既没有处理WM_PAINT，又没有Paint()或者PaintWindow()，那么它是什么时候被绘制的？ Form1上放2个TButton，然后设置代码： 在Form1第一次显示时，应该会让这两个Button显示。这两个Button应该会处理WM_PAINT并显示。可是完 Read More
posted @ 2016-02-25 21:06 findumars Views(661) Comments(0) Diggs(0)