Delphi hängt sich auf mit selbstgemachten Komponenten

[Taladan]

Und das

Delphi-Quellcode:

procedure TMaxMySqlQuery.Notification(Acomponent : TComponent; Operation: TOperation);
begin
   inherited Notification(AComponent, Operation);
   if (Operation = opRemove) and (AComponent is TMaxMySqlCon) then
      TSource := nil;
end;

Das müßte eigenlich dein Fehler sein, denn du überschreibst die Notification-Funktion Diese wird bei jeder Veränderung, alos Erzeugen oder Löschen aufgerufen. Jedoch macht deine Funktion nichts anderes als deine If-Anweisung. Die eigendliche "Veränderungsfunktion" wird nicht aufgerufen. Leider weiß ich nicht, ob die in deinen Fall vor oder nach der If-Schleife kommen muß. Könnte sein, das dies je nach Operation auch verschieden sein kann.

Gruß Marco