意外注意到这个小细节：
procedure TControl.WMLButtonUp(var Message: TWMLButtonUp);
begin
inherited; // 注意，如果是直接点击Form1，会执行TCustomForm.DefaultHandler(var Message);相当于给子类控件提供了新的处理消息的机会
if csCaptureMouse in ControlStyle then MouseCapture := False;
if csClicked in ControlState then
begin
Exclude(FControlState, csClicked);
if PtInRect(ClientRect, SmallPointToPoint(Message.Pos)) then
Click;
end;
DoMouseUp(Message, mbLeft);
end;
够阴险的啊，为什么要这样做呢？是为了提前把子类的一切充分融入到VCL官方框架中？