Image内でのマウス座標を0.1(小数)単位で取得するには?

解決

TT 2004-12-19 09:53:04 No: 12385

マウス座標の取得方法について質問させて頂きます。
*FormにはImageとStatusBarが置いてあります。

procedure TForm.ImageMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
    StatusBar.Panel[2] := IntToStr(X);
    StatusBar.Panel[4] := IntToStr(Y);
end;

この部分でマウス座標を取得して表示しています。
ですが、MouseMoveイベントでは、X,Y共にInteger型で
整数になっています。
また、GetCursorPos関数で、X,Yを取得しても
やはり、TPoint(整数型)になっています。

この部分でマウス座標を実数型で取得したいのですが、
どうすれば、実現出来るのでしょうか？

どうか、教えてください。お願いします。

りおりお 2004-12-19 10:04:29 No: 12386

マウス座標はピクセル単位ですから少数以下の数値はありえません。
実数型にしたければ、たんにその変数に代入するだけです。

TT 2004-12-19 10:12:45 No: 12387

>実数型にしたければ、たんにその変数に代入するだけです。

これは、「整数型を実数に直して、変数に入れる」
という事ですよね？

りおりお 2004-12-19 10:14:49 No: 12388

代入するだけです。

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  s:single;
begin
  s := x;
  Label1.Caption := FloatToStr(s);
end;

TT 2004-12-19 10:18:59 No: 12389

りおりおさん、ご回答ありがとうございます。
回答頂いたものでやってみたいと思います。

ありがとうございました。