写了一个form响应wm_ctlcolor消息的函数，怎么也不响应，怎么回事？

Question

procedure TForm1.wmctrlcolor(var msg: Twmctlcolor);
var
brush:hbrush;
brush1:tbrush;
rocedure wmctrlcolor(var msg :Twmctlcolor);message wm_ctlcolor;procedure TForm1.wmctrlcolor(var msg: Twmctlcolor);
begin
    inherited;
 brush1:=tbrush.Create;
 brush1.Color:=clred;
 brush1.Style:= bsSolid;
 if brush1=nil then        exit;
msg.Result:=brush1.Handle;
end;

Answer 1

你从新写消息处理函数就可以了TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WndProc(var Message: TMessage);override;
  end;procedure TForm1.WndProc(var Message: TMessage);
begin
    if (Message.Msg=WM_LBUTTONDOWN)then
         form1.Caption:='鼠标点击';
  inherited WndProc(Message);
end;