//TImage对象可以设置设置画笔,自己划线
// new 一个TImage对象
imgLimitLine = new TImage(ScrollBox1);
// 具体画线
void TfrmObjectsM::DrawLimitLine()
{
imgLimitLine->Parent = ScrollBox1;
imgLimitLine->Width = 2000;
imgLimitLine->Height = 1; // 图片高度
TRect rctFill;
imgLimitLine->Canvas->Brush->Color = clRed;
rctFill.left = 0;
rctFill.top = 0;
rctFill.right =imgLimitLine->Width;
rctFill.bottom = imgLimitLine->Height;
imgLimitLine->Canvas->FillRect(rctFill);
// 调整位置
imgLimitLine->Top = 80; //
imgLimitLine->Left = 0;
// 置顶
imgLimitLine->BringToFront();
}