窗体中间的分隔虚线如何实现？

不就是TCanvas绘图，画虚线麽 ，bcb6 例子 ，LZ自己用pascal语法 再写写
void __fastcall TForm1::FormPaint(TObject *Sender)
{
TRect r = this->GetClientRect();
this->Canvas->Pen->Style = psDash;
this->Canvas->MoveTo(0, r.Height()/2);
this->Canvas->LineTo(r.Width(), r.Height()/2);
}

有个控件叫 Raize Components ，内有 rzline 控件。