Ich rufe VectorObjectsChanged auf, um der Handlerinstanz mitzuteilen, dass sich etwas an der Datenstruktur geändert hat, etwa wenn Objekte gelöscht oder hinzugefügt wurden, während der Handler verbunden ist.
Dann wird geprüft, ob nach dem letzten Kenntnisstand noch alles funktioniert hat (ConnectionIsValid)
Wenn das Objekt gelöscht wurde, auf das aktuell zugegriffen wird (dann kann die hinterlegte UID des Objekts nicht mehr aufgelöst werden), wird eben die Existenz des Objekts über die UID in VectorObjectsChanged geprüft und bei dem Befund, dass das Objekt weg ist, wird der Handler abgetrennt. Über OnDisconnect werden dann die zugehörigen Anzeigeelemente zurückgesetzt, sprich der zugehörige tbCheck-ToolButton wird wieder herausgenommen.
Ich kann noch immer nicht erklären, was hier vor sich geht und nein, es gibt keine Warnung, dass eine Methode durch das fehlende Override verdeckt wurde, was auch sehr unlogisch ist.
Delphi-Quellcode:
procedure TCreatePointHandler.VectorObjectsChanged(Sender: TObject);
begin
if assigned(Manager) and ConnectionIsValid then
begin
if VectorObjID > -1 then
if (Manager.PointGroupList.IndexByID(VectorObjID ) = INDEX_NOT_RESOLVED) then // We've lost him, Sir.
Self.Disconnect;
end;
end;