在一个Panel 上画一条直线，该如何处理

在一个Panel 上画一条直线，
在一个Panel   上画一条直线，


[解决办法]
TControlCanvas *cc = new TControlCanvas;
cc-> Control = Panel1;
cc-> Pen-> Color = clRed; // 红色
cc-> MoveTo(10, 10);
cc-> LineTo(100, 10);
delete cc;