怎么在Tpanel里画图,比如直线啊,==

Question

画好图后,当移动窗体时,所画的图会没掉,怎么使之不会没掉

Answer 1

如果你是在程序启动时画线可以在窗体的onPaint事件里画，如果是想实现绘图功能，最好不要在panel里画

Answer 2

放上个TImage，然后用TImage的Canvas来画。
procedure TForm1.Button1Click(Sender: TObject);begin
  with Image1 do begin
    Canvas.Brush.Color := clRed;
    Canvas.Brush.Style := bsDiagCross;
    Canvas.Ellipse(0, 0, Image1.Width, Image1.Height);
  end;end;

Answer 3

var cvs:TCanvas;
begin
  cvs:=TCanvas.Create;
  try
    cvs.Handle:=GetDC(Panel1.Handle);
    cvs.MoveTo(0,0);
    cvs.LineTo(50,50);//操作cvs就可以了
  finally
    cvs.Free;
  end;
end;