分割位置を決めるため画像上のマウスカーソルをラインにするには (ID:22917)

名前

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

本文 いつもお世話になっています。環境はWindows XP Delphi 6 Personalです。 画像を分割するプログラムを作成していますが、 画像の分割位置を決めるためのカーソルラインの表示方法を教えていただけませんか。 フォームにScrollBoxを貼り付けて、その上にImageコンポーネントを貼り付けて、 Form2.SetViewForm(BMP画像ファイルのフルパスとファイル名); Form2.ShowModalで表示させています。 マウスの移動についてくる縦線、または横線を表示させる。あたかもマウスの矢印を縦線、横線に変えた感じで。 目的は縦線表示、横線表示を選択して画像の上で分割位置を決めたいのです。 次のようにやってみたのですが、これでは、画面にラインを書いてしまうし、動きもカクカクと動いてしまいます。 procedure TForm2.imgViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Xa:=Trunc(X); Ya:=Trunc(X); VerticalLine(Xa,Ya); end; //縦線を引く procedure TForm２.VerticalLine(XX,YY:integer); begin imgView.Canvas.MoveTo(XX, 0); imgView.Canvas.LineTo(XX, 高さ); end; 参考として「画文作文」 http://www.vector.co.jp/soft/dl/win95/net/se119753.html のラインカーソルにしたいのですが。 よろしくお願いいたします。