用什么方法在“Panel”控件上画线！！！

Question

用什么方法在“Panel”上画线！！！最好给个例子
我按帮助写“Panel4.PaintTo(Handle, 10, 200);”怎么什么都 没有？

Answer 1

var
  cv: tcontrolcanvas;
begin
  cv := tcontrolcanvas.create;
  cv.control := panel1;
  cv.xxxx (canvas该怎用就怎写)
  cv.free
end;

Answer 2

VAR
  ACanvas : TCanvas;
begin
  ACanvas := TCanvas.Create;
  try
    ACanvas.Handle := GetDC(Panel1.Handle);
    ACanvas.MoveTo(0,0);
    ACanvas.LineTo(Panel1.Width,Panel1.Height);
  finally
    ACanvas.Free;
  end;

Answer 3

Panel本身是没有Canvas的，要先放个TImage或者TPaintBox上去。

Answer 4

var dc : hdc;
  dc := getdc(panel1.handle);
  在此DC上随便画
  releasedc(panel1.handle,dc);

Answer 5

 Canvas
   moveto  Lineto