Komponente und Ereignis in unit auslagern

[soeschmid]

Hallo

Ich arbeite an einem größeren Programm, bei dem ich zur Übersicht
Komponenten sowie Ereignisprozeduren in units auslagern möchte.

Leider bekomme ich immer beim Beenden der dynamisch zugewiesenen Prozedur eine Zugriffsverletzung.

Der Quelltext im einzelnen:

Delphi-Quellcode:

unit5;
interface
uses
   ....
procedure start11();
procedure mouseup(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

implementation

procedure start11();
begin
  bild := Timage.Create(Form2);
  bild.parent := Form2;
  @bild.onmouseup := @mouseup;
end;

procedure mouseup(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //irgendwas (Berechnungen ohne an irgendwelchen Komponenten Änderungen vorzunehmen)
end;

Beim Beenden der Prozedur "mouseup" tritt immer eine Zugriffsverletzung auf, unabhängig vom Quelltext.
(Wenn im debugger das "end;" markiert ist und ich wieder auf "F7" drücke.)

Wenn ich als Ereignis nicht das onmouseup-Ereignis, sondern das Onclick-Ereignis benutze gibt es keine Fehlermeldungen.
Leider brauche ich für die Berechnungen die mauskoordinaten.

Kann mir jemand helfen?

Mfg
Soeschmid

[Bernhard Geyer]

Du darfst der bild.onmouseup-Ereignis nur eine Objektmethode zuweisen, sprich eine Methode eines Objekts.
Du weißt ihr aber per harten (fehlerhaften) Pointeroperationen eine normale Funktion zu!

So könntest du die Ereignisse auslagern (Alternativ du definierst eine eigene Basis-Formularklasse, welche schon einige Zusatzfunktionen besitzt):

Delphi-Quellcode:

type
  TMyObj = class(TObject);
  private
    bild: TImage;

    procedure mouseup(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  public
    procedure start11(ParentForm: TForm);
  end;

implementation

procedure TMyObj.start11(ParentForm: TForm);
begin
  bild := Timage.Create(self);
  bild.parent := ParentForm;
  bild.onmouseup := mouseup;
end;

procedure TMyObj.mouseup(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //irgendwas (Berechnungen ohne an irgendwelchen Komponenten Änderungen vorzunehmen)
end;

So könntest Du

[soeschmid]

Vielen Dank

So verstehe ich auch, warum das nicht funktioniert hat.

Mfg
Soeschmid