经度、纬度

Question

请问各位高手：
   
     如何使鼠标在Image控件中的图片中使得label中的值不停的动。

Answer 1

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Caption :=format('X:%d,Y:%d',[X,Y]);
end;

Answer 2

什么意思 取鼠标的值?Image的MOUSEMOVE   X Y  参数就是

Answer 3

你说的意思我明白 坐标都是以象素记的你可以把它转换成twips1象素相当于15个twips 具体函数忘了你查查用法很简单

Answer 4

不就是POINT嘛，什么经度，纬度的。
具体的楼上的都说的差不多了。让你的IMAGE控件接收WM_MOUSEMOVE消息，然后在里面取鼠标位置值，再然后就是显示出来。可以达到你所提的响应速度。

Answer 5

补充，要是显示从左下到右上的坐标位置的话，先取到IMAGE的左下角在屏幕上的位置，然后把得到的鼠标位置跟它一起做变换。就是加加减减的。不多说了。

Answer 6

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    m_imgZero_x,m_imgZero_y:integer;    // 定义Image左下角坐标的两个值
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var coordinate_x,coordinate_y:integer;
begin
   coordinate_x:=X-m_imgZero_x;    // 坐标变换，从左上角原点变换到左下角原点
   coordinate_y:=m_imgZero_y-Y;
   Label1.Caption:='X:'+IntToStr(coordinate_x)+#9'Y:'+IntToStr(coordinate_y);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
   m_imgZero_x:=Image1.Left;                  // 确定Image左下角坐标
   m_imgZero_y:=Image1.Top+Image1.Height;
end;end.