Delphi中畫一個矩形

    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);

根據自己的需要在相應位置進行畫矩形。