关于画线的问题! 请教高手!(100分)

我在窗口上放了一个ScrollBox , 我想在这个ScrollBox上画线! 怎么画呢?

SrollBox是个容器，你往里面放一个TImage在它上面画。看看能不能解决你的问题。

//简单点的
//form上一个scrollbox,一个button
//在button的click事件中

procedure TForm1.Button1Click(Sender: TObject);
var
hd:hdc;
canvas:Tcanvas;
begin
canvas:=Tcanvas.Create;
hd:=getdc(self.ScrollBox1.Handle);
canvas.Handle:=hd;
canvas.Pen.Color:=clred;
canvas.MoveTo(0,0);
canvas.LineTo(333,466);
end;
//楼主看看

谢谢!!!