Perform($000B, 0, 0); //锁屏幕 防止闪烁
Canvas.Rectangle(Width+40-step,Height div 3-50,Width -step,0);
Canvas.Rectangle(Width-step,Height,Width +40-step,Height div 3);
Perform($000B, 1, 0);
RedrawWindow(Handle, nil, 0, RDW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);
根据自己的需要在相应位置进行画矩形。