如何在TableSheet上画线？：) ( 积分: 50 )

我有一qq 多个页面的PageControl,如何在各个TableSheet上画线？
我每次画时总是画到FORM上去了。

我有一qq 多个页面的PageControl,如何在各个TableSheet上画线？
我每次画时总是画到FORM上去了。

procedure TForm1.Button1Click(Sender: TObject);
var
ACanvas: TControlCanvas;
begin
ACanvas := TControlCanvas.Create;
try
ACanvas.Control := TabSheet1;
ACanvas.Lock;
try
ACanvas.Rectangle(10, 10, 120, 120);
finally
ACanvas.UnLock;
end;
finally
ACanvas.Free;
end;
end;