者是我回答的第二个问题
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color := clred;
Form1.Canvas.MoveTo(10,10);
Form1.Canvas.LineTo(300,300);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color := clbtnface;
Form1.Canvas.MoveTo(10,10);
Form1.Canvas.LineTo(300,300);
end;
有什么不明白请提问（在线）
