Hallo,
ich habe folgendes Problem.
Also. Ich habe ein Basisformular erstellt: TBasicForm welches von TForm abgeleitet ist. Wenn ich jetzt MDIChilds erstelle, werden diese von TBasicForm abgeleitet.
Die Formular-Procedure FormClose habe ich überschrieben, damit Sie so aussieht:
procedure FormClose(Sender: TObject; var Action: TCloseAction; ExitProc:TExitProcedure);
ExitProc ist eine Übergebene Function die eben ausgeführt wird, wenn das Formular geschlossen wurde.
Ich habe jetzt ein MDIChild erstellt, welches keine Procedure übergeben bekommt. Wenn nun versucht wird die ExitProc-Function auszuführen gibt es eine
Exception.
Aufruf:
inherited FormClose(Sender, Action, nil);
Wie kann ich prüfen, ob die Adresse, bzw. Procedure existiert???
if ExitProc <> nil then ExitProc;
funktionnukkelt nicht.
Ich hoffe das einer helfen kann.
Gruss
Samson