我想作出跟電腦上的時鐘一樣的圖示...不過我只會畫出圓和線=.="不知道要怎麼才能讓線動(下面是小弟打的程式碼)麻煩各位高手大大指點orz...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject);
begin
canvas.Brush.Color:=clred;
canvas.Pen.Color:=clblue;
canvas.Pen.Width:=5;
canvas.Ellipse(250,10,0,250);
canvas.Pen.Color:=clBLACK;
canvas.MoveTo(100,15);
canvas.LineTo(120,130);
canvas.Pen.Color:=clyellow;
canvas.MoveTo(130,30);
canvas.LineTo(120,130);
canvas.Pen.Color:=clgreen;
canvas.Pen.Width:=2;
canvas.MoveTo(150,20);
canvas.LineTo(120,130);


end;
end.

基本上這種功能,有很多套件都有這功能如JVC等...
要是你堅持自己做可以給你一個方向,
這一段用一個timer計時器去畫秒線,但在畫線之前要把之前線清除
而關於線位置用圓周率Pi等...就可以求出偏移多少
canvas.Pen.Color:=clgreen;
canvas.Pen.Width:=2;
canvas.MoveTo(偏移值x,偏移值y);;
canvas.LineTo(120,130);

請問pi值要如何運算呢?