掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
時計のように動かすには？ (ID：21734)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
押すたびにくるくる回ります。 procedure TForm1.Button1Click(Sender: TObject); var w2, h2: Word; const ib: Byte = 45; begin w2 := Image1.Width div 2; h2 := Image1.Height div 2; with Image1 do begin Canvas.Ellipse(0, 0, Image1.Width, Image1.Height); Canvas.MoveTo(w2, h2); Canvas.LineTo(w2 + Trunc(w2 * Cos(PI * ib * 6 / 180)), h2 + Trunc(h2 * Sin(PI * ib * 6 / 180))); end; inc(ib); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.