Hallo,
ich habe eine Klasse, die eine Komponente wrappt und damit unter anderem eine Chain von Mausereignissen ermöglciht:
Delphi-Quellcode:
function TPanelManager.CreateElement(Parent: TWinControl; Visible: Boolean): Boolean;
begin
Element := TPanel.Create(Parent);
Element.Parent := Parent;
Element.Visible := Visible;
self.MouseDownEvents := TList.Create;
self.MouseUpEvents := TList.Create;
self.MouseMoveEvents := TList.Create; //<-!!
Element.OnMouseDown := PanelMouseDown;
Element.OnMouseUp := PanelMouseUp;
Element.OnMouseMove := PanelMouseMove; //<-!!
Result := true;
end;
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 //(1)
for i := 0 to xy.MouseMoveEvents.Count-1 do //<-!!
if Assigned(xy.MouseMoveEvents[i]) then
TMouseMoveEvent(xy.MouseMoveEvents[i]^)(Sender, Shift, X, Y);
end;
An den markierten ("!!") Stellen sieht man es ja schön - alles initlisiert, es sollte eigentlich nichts schiefgehen.
Aber man sieht ja schon an den etwas wirren Zuweisungen im PanelMouseMove - etwas stimmt doch nicht.
Denn bei "(1)" knallt es - und zwar gewaltig.
AV beim Lesen. Warum? Ich zerstöre die Liste nirgends, und vor der Erstellung wird das Event (private-feld in TPanelManager) ja wohl nie ausgelöst. Es knallt schließlich auch, wenn ich mit der Maus über das Control fahre.
TPanelManager ist übrigens von TInterfacedObject abgeleitet und implementiert ein Interface. Er wird auch gerne mal gequeryt, der refcount liegt zur ausführungszeit von PanelMouseMove typischerweise bei 25.
Wo gehen also die Listen verloren?!