本实例要在窗体上直接绘制正弦曲线，为了防止窗口切换的过程中会输出不完整的图形，因此绘制图形的关键代码都放在了窗体的OnPaint过程中，代码如下：procedure TForm1.FormPaint(Sender: TObject);var　x: Integer;　y,a: Double;begin　Canvas.Pen.Width:=3;　Canvas.MoveTo(0,Trunc(self.ClientHeight/2));　for x := 0 to self.ClientWidth do...