用delphi写一个地图代码

以下是一个简单的 Delphi 地图代码：

unit Map;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls;

type
  TMapForm = class(TForm)
    MapImage: TImage;
    procedure FormCreate(Sender: TObject);
    procedure MapImageMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MapForm: TMapForm;

implementation

{$R *.dfm}

procedure TMapForm.FormCreate(Sender: TObject);
begin
  MapImage.Picture.LoadFromFile('map.jpg');
  MapImage.Cursor := crHandPoint;
end;

procedure TMapForm.MapImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  MapForm.Caption := Format('X: %d, Y: %d', [X, Y]);
end;

end.

这个代码使用了 Delphi 的 TImage 控件来显示地图图片，并且在鼠标移动时在窗口标题栏上显示当前鼠标坐标。你需要将图片文件命名为“map.jpg”并放置在与该代码文件相同的目录下，才能正确地显示地图。