掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウス座標から角度を求めるには？ (ID:29937)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こうだな procedure TForm4.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Mxy[I].x:=x; Mxy[I].y:=y; Inc(I); If (I>2) then //３回クリックしたら角度計算 begin TX1:=(Mxy[1].x-Mxy[0].x); TY1:=(Mxy[1].y-Mxy[0].y); TX2:=(Mxy[2].x-Mxy[0].x); TY2:=(Mxy[2].y-Mxy[0].y); C1:= ArcTan2(TY1,TX1); C2:= ArcTan2(TY2,TX2); AGL:=C1-C2; Label1.Caption:='角度：'+FloatToStr(AGL);//結果表示 //点検用 Canvas.MoveTo(Mxy[2].x,Mxy[2].y); Canvas.lineTo(Mxy[0].x,Mxy[0].y); Canvas.lineTo(Mxy[1].x,Mxy[1].y); I:=0; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.