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

    unit dy29;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, jpeg, StdCtrls, ExtDlgs;
    
    type
      TForm1 = class(TForm)
        ScrollBox1: TScrollBox;
        Image1: TImage;
        Button1: TButton;
        OPicture: TOpenPictureDialog;
        Button2: TButton;
        procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
        procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
        procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Integer);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        moveFlag:Boolean;
        OX,OY:integer;
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    //处理鼠标移动的事件
    procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      moveFlag:=true;
      OX:=X;
      OY:=Y;
    end;
    
    procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      moveFlag:=False;
    end;
    
    procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
      if moveFlag then
      begin
        Image1.Left:=Image1.Left+(X-OX);
        Image1.Top:=Image1.Top+(Y-OY);
      end;
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if opicture.Execute then
      image1.Picture.LoadFromFile(opicture.FileName);
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      close;
    end;
    
    end.