原创开源项目TinyFC代码

●○△▲ ●控件颜色控制 ○BackColor △VCL中的封装分析 TControl = class(TComponent) FColor: TColor; property Color: TColor read FColor write SetColor stored IsColorStored default clWindow; constructor TWinControl.Create(AOwner: TComponent); begin FBrush := TBrush.Create; FBrush.Color := FColor; procedure TWinControl.DefaultHandler(var Message); begin case Msg of WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC: Result := SendMessage(LParam, CN_BASE + Msg, WParam, LParam); '消息反射 CN_CTLCOLORMSGBOX..CN_CTLCOLORSTATIC: begin SetTextColor(WParam, ColorToRGB(FFont.Color)); SetBkColor(WParam, ColorToRGB(FBrush.Color)); Result := FBrush.Handle; end; 常数定义 unit Controls; const CN_BASE = $BC00; CN_CHARTOITEM = CN_BASE + WM_CHARTOITEM; CN_COMMAND = CN_BASE + WM_COMMAND; CN_COMPAREITEM = CN_BASE + WM_COMPAREITEM; CN_CTLCOLORBTN = CN_BASE + WM_CTLCOLORBTN; CN_CTLCOLORDLG = CN_BASE + WM_CTLCOLORDLG; CN_CTLCOLOREDIT = CN_BASE + WM_CTLCOLOREDIT;