unit mmousemove;

interface

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

type
  Tmouse = Array [1..4] of TBitmap;
  Tmousemove = class(TForm)
    lbedCursorPos: TLabeledEdit;
    imMouse: TImage;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormActivate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure load_pics (var Pics: TMouse);
  public
    { Public-Deklarationen }
  end;

var
  mousemove: Tmousemove;
  mousepics: Tmouse;


implementation

{$R *.dfm}

procedure Tmousemove.load_pics (var Pics: TMouse);
begin
  //Die Bilder werden ins Array geladen
  Pics[1].LoadFromFile('mouse.bmp'); {<= hier gibt der Debugger eine Zugriffsverletzung aus}
  Pics[2].LoadFromFile('left.bmp');
  Pics[3].LoadFromFile('middle.bmp');
  Pics[4].LoadFromFile('right.bmp');
end;

procedure Tmousemove.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
lbedCursorPos.Text := 'X: '+inttostr(x)+' ; Y: '+inttostr(Y);
//Im Edit wird die aktuelle Cursorposition ausgegeben
end;

procedure Tmousemove.FormActivate(Sender: TObject);
begin
  load_pics (mousepics); // Die Bilder werden ins Array geladen
end;

end.