如果在FORM上显示正弦函数的图象?在线等待

Question

小弟想在窗体上显示一条正弦曲线,希望各位大大鼎立支持,教教我怎么画,小弟不胜感激

Answer 1

用Canvas实现：
const
  X = 10;
  Y = 300;
  XLEN = 800;
  YLEN = 100;
  PIE = 3.14;procedure TForm1.Button1Click(Sender: TObject);
var
  i : double;
begin
  canvas.MoveTo(X,Y);
  canvas.LineTo(X + XLEN,Y);
  canvas.MoveTo(X,Y);
  canvas.LineTo(X,Y-YLEN);
  canvas.MoveTo(X,Y);
  canvas.LineTo(X,Y+YLEN);
  canvas.MoveTo(X,Y);
  i := 0;
  while i <= PIE * 2 do
  begin
    canvas.LineTo(X+Trunc (i*100),Y+Trunc (Sin (i)*100));
    i := i + 0.01;
  end;
end;

Answer 2

当然你也可以在“画图”程序中自己画一张曲线图然后用TImage载入。