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