【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“map.pas”一文，供大家参考学习!

    unit map;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Buttons, ExtCtrls, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Image1: TImage;
        ImgGJTYC: TImage;
        MmMap: TMemo;
        ImgBJSJC: TImage;
        imgWKSTYC: TImage;
        procedure FormResize(Sender: TObject);
        procedure ImgGJTYCClick(Sender: TObject);
        procedure ImgGJTYCMouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Integer);
        procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Integer);
      private
    
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    procedure TForm1.FormResize(Sender: TObject);
    begin
      with ImgGJTYC do
      begin
        Left:=Round(image1.Width * 0.6029);
        Top:=Round(image1.Height * 0.42789);
        Width:=Round(image1.Width * 0.1089);
        Height:=Width;
      end;
    
      with ImgBJSJC do
      begin
        Left:=Round(image1.Width * 0.1470);
        Top:=Round(image1.Height * 0.4371);
        Width:=Round(image1.Width * 0.1542);
        Height:=Round(Width*0.7656);
      end;
    
      with imgWKSTYC do
      begin
        Left:=Round(image1.Width * 0.3398);
        Top:=Round(image1.Height * 0.6080);
        Width:=Round(image1.Width * 0.1831);
        Height:=Round(Width*0.6447);
      end;
    
    end;
    
    procedure TForm1.ImgGJTYCClick(Sender: TObject);
    var
      port:String;
    begin
      Case TImage(Sender).Tag  of
        0: port:= '国家体育馆';
        1: port:= '北京射击场';
        2: port:='五棵松体育馆';
      end;
      Messagebox(application.Handle,pchar('你单击的地点是：'+port),'提示',MB_OK);
    end;
    
    procedure TForm1.ImgGJTYCMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    var
      port:String;
    begin
      Case TImage(Sender).Tag  of
        0: port:= '国家体育场';
        1: port:= '北京射击场';
        2: port:='五棵松体育馆';
      end;
      MmMap.Text:=port;
    end;
    
    procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
      MmMap.Text:='北京地区奥运场馆分布图';
    end;
    
    end.