self kaputt? Listen-Initialisierung wegoptimiert? sonstiges?

[negaH]

Zitat:

Delphi-Quellcode:

function TFormPanel.AddOnMouseMove(Event: TMouseMoveEvent): Integer; 
begin 
  Result := MouseMoveEvents.Add(@Event); 
end;

Upps erwischt, schau dir in der Hilfe TMethod an, dann vielleicht noch TOnClickEvent, damit du weist was obiges Event als Speicherstuktur bedeutet und dann frage dich worauf der Zeiger der mit @Event referenziert wierd tatsächlich zeigt. (Tipp: was ist ein Stack? und wozu braucht man den ?)

Gruß hagen