Danke!
Ich habs geschafft. Nochmal zur Erklärung!
Ich habe eine
MDI-Application. Diese hat natürlich
MDI-Childs, welche nicht von TForm abgeleitet sind, sondern von MyBasicForm.
MyBasicForm ist von TForm abgeleitet.
Jetzt habe ich eine procedure der
MDI-Hauptform geschrieben welche bestimmte Aktionen macht wenn das
MDI-Child geschlossen wird.
Aufgrund der Tatsache, das der Code beim Schliessen eines
MDI-Childs immer gleich ist, habe ich eine entsprechende procedure in MyBasicForm geschrieben.
Problem war, das ich nicht die
MDI-Hauptunit in MyBasicForm einusen will. Also muss das
MDI-Child die vorhin genannte Funktion übergeben.
Ich habs jetzt folgend gelöst.
Delphi-Quellcode:
Typ
TMyFunc:procedure of Object;
Typ
MyBasicForm = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction; MainFunc:TMyFunc);
.
.
.
end;
implementation
procedure MyBasicForm.FormClose(Sender: TObject; var Action: TCloseAction; MainFunc:TMyFunc);
begin
.
.
.
MainFunc;
end;
Ich danke auf jedem Fall allen die mir geholfen haben.
Gruss
Samson
