時計のように動かすには？ (ID：21735)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Form1  に PaintBox1 を 200X200 で置いて、あと Button1 を置いて
以下のようにします。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    byousin: integer;
    cx, cy, r: integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  Math;

procedure TForm1.FormCreate(Sender: TObject);
begin
  byousin := 0;
  cx := PaintBox1.Width div 2;
  cy := PaintBox1.Height div 2;
  r := Min(cx, cy) - 10;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  x, y: integer;
begin
  with PaintBox1.Canvas do
  begin
    MoveTo(cx, cy);
    x := Trunc(r * sin(PI*byousin/180)+cx);
    y := Trunc(-r * cos(PI*byousin/180)+cy);
    LineTo(x, y);
    TextOut(2, 2, IntToStr(byousin));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(byousin);
  if byousin > 359 then byousin := 0;
  PaintBox1.Refresh;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る