In der procedure laod_pics bricht der Debugger das Programm mit einer Zugriffsverletzung ab. Sieht jemand den Fehler?:

zusammenfalten · markieren

Delphi-Quellcode:

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.

Vielen Dank für eure Hilfe.
MfG
Christian

Die Variablen müssen erst noch instantiiert werden. (zuweisen des Speichers)

markieren

Code:

procedure Tmousemove.FormCreate(Sender: TObject); {OnCreate}
begin
  mousepics[1] := TBitMap.Create;
  mousepics[2] := TBitMap.Create;
  mousepics[3] := TBitMap.Create;
  mousepics[4] := TBitMap.Create;
  mousepics[1].LoadFromFile('mouse.bmp');
  mousepics[2].LoadFromFile('left.bmp');
  mousepics[3].LoadFromFile('middle.bmp');
  mousepics[4].LoadFromFile('right.bmp');
end;

Und vergiß nicht alles am Ende wieder freizugeben. (Programmeende)

markieren

Code:

procedure Tmousemove.FormDestroy(Sender: TObject); {OnDestroy}
begin
  mousepics[1].Free;
  mousepics[2].Free;
  mousepics[3].Free;
  mousepics[4].Free;
end;

In OnCreate werden die Bilder nur ein mal, beim erstellen des Formulars, erzeugt und geladen.
Und in OnActivate geschieht das jedes mal, wenn das Formular den Eingabefokus erhält.

Danke. Ist das erste mal, das ich Bitmaps in ein Array lade

MfG
Christian