能不能给一些delphi中画图的例子 如：线、圆、坐标定位等等。谢谢了，只有10分了

Question

谢谢
[email protected]

Answer 1

路过如果不太复杂的话，看看 Delphi 的 TCanvas，就可以了。

Answer 2

http://www.2ccc.com/article.asp?articleid=1152

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Canvas.MoveTo(10,10);
  Form1.Canvas.LineTo(20,20);//从(10,10)画线到(20,20)
end;procedure TForm1.Button1Click(Sender: TObject);
begin
    Form1.Canvas.Ellipse(10, 10, 50, 50);//画圆
end;procedure TForm1.Button1Click(Sender: TObject);
begin
    Form1.Canvas.Pixels[10,10] := clRed;//把(10,10)点显示红色
end;

Answer 4

var cvs:tcanvas;
begin
   cvs:=TCanvas.create;
   cvs.handle:=GetDC(操作窗体的名称.handle);
   对cvs进行操作就行啦
end;