Jaaa... und was ist jetzt mir meiner anfänglichen Frage?
Die existiert immer noch, denn fakt ist, wenn ich auf MouseMoveList.Count zugreife, gibt es eine
AV...
EDIT: nur zur auffrischung:
Delphi-Quellcode:
function TPanelManager.AddOnMouseMove(const Event: TMouseMoveEvent): Integer;
var CopyEvent: Pointer;
begin
CopyEvent := GetMemory(sizeof(TMouseMoveEvent));
CopyMemory(CopyEvent,@Event, sizeof(TMouseMoveEvent));
Result := MouseMoveEvents.Add(CopyEvent);
end;
So adde ich ein Event zur Liste - stimmt das jetzt so?
Und hier ist der schadcode:
Delphi-Quellcode:
procedure TPanelManager.PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var ListEvent: Pointer;
xy: TFormPanel;
c: TControl;
i: Integer;
begin
xy := self;
c := xy.GetElement;
if xy.MouseMoveEvents.Count > 0 then //<<-- KNALLT HIER
for i := 0 to xy.MouseMoveEvents.Count-1 do
if Assigned(xy.MouseMoveEvents[i]) then
TMouseMoveEvent(xy.MouseMoveEvents[i]^)(Sender, Shift, X, Y);
end;
Wos knallt hab ich hoffentlich fett genug markiert...
EDIT: Den TPanelManager bekommt die Anwendung nur einmal in die Hand, dabei wird er in einen InterfaceManager created, der von da an das Interface bereitstellt.
Das PanelMouseMove und die TList SOLLTEN aber davon doch absolut unbeeinflusst bleiben, es funktioniert ja offenbar auch der self-pointer - obwohl ich das einmal überprüfen sollte.
Kann es denn sein, dass mir da irgendwelche Adressen/Instanzen verschütt gehen?