Komponente und Ereignis in unit auslagern

[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