Funktion an Funktion übergeben.

[samson]

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