procedure TWinControl.RemoveControl(AControl: TControl);
begin
  Perform(CM_CONTROLCHANGE, Integer(AControl), Integer(False)); // 通知父控件
  if AControl is TWinControl then
    with TWinControl(AControl) do
    begin
      RemoveFocus(True); // 类函数
      DestroyHandle; // important5 销毁它和它所有的子控件
    end
  else
    if HandleAllocated then
      AControl.InvalidateControl(AControl.Visible, False); // important5 让图形控件消失使用这种手法
  Remove(AControl); // 类函数
  Perform(CM_CONTROLLISTCHANGE, Integer(AControl), Integer(False)); // 通知父控件
  Realign;
end;

procedure TControl.DoDock(NewDockSite: TWinControl; var ARect: TRect);
begin
  { Erase TControls before UpdateboundsRect modifies position }
  if not (Self is TWinControl) then InvalidateControl(Visible, False);
  if Parent <> NewDockSite then
    UpdateBoundsRect(ARect) // 类函数
  else
    BoundsRect := ARect; // 类属性
  if (NewDockSite = nil) or (NewDockSite = NullDockSite) then Parent := nil;
end;

procedure TControl.InvalidateControl(IsVisible, IsOpaque: Boolean);
var
  bParentOpaque: Boolean;
  bChlipped: Boolean; 
  Rect: TRect;
begin
  if (IsVisible or (csDesigning in ComponentState) and not (csNoDesignVisible in ControlStyle))
     and (Parent <> nil) and Parent.HandleAllocated then
  begin
    Rect := BoundsRect; // 类函数，简单计算（根据控件的长宽高）标签的坐标以及尺寸
    bParentOpaque := csOpaque in Parent.ControlStyle; // Form默认透明（csOpaque不在风格里）。但是父控件不一定是Form，不要思维僵化在这里。
    bChlipped:=BackgroundClipped; 
    // 实验说明后两个一般情况下都是False
    // 第三个参数为False，则保持背景不变。Not作用符以后，有三者条件之一成立即可，就会保持背景不变。
    // IsOpaque表示TControl自己不透明，完全遮住了父控件相应的区域，当然不用重绘背景
    // bParentOpaque表示父控件自己就是不透明的，现有的背景已经足够(不需要更新父父控件的背景)，那么无论TControl子控件怎么办自绘，都不需要更新背景。
    // bChlipped 重合了
    // 反过来说，自己透明(而且有可能是从不透明变成透明)，这时当然要重绘背景。因为原来那部分背景根本就没有绘制。
    //           父控件透明，也可以从不透明变成透明，这时也要背景重绘。fixme 如果父控件一直是透明的呢，那么每次绘制都要求父父控件背景重绘，因为父父控件的状态也有可能在改变。
    // fixme 有空仔细研究背景消息 才能深刻理解
    InvalidateRect(Parent.Handle, @Rect, not (IsOpaque or bParentOpaque or bChlipped)); // API
  end;
end;