Hallo,
ich hab neben der Unit1 (
standart) noch eine weitere
Unit
angelegt, inder ich eine procedure habe mit der ein MDIChild
erzeugt wird. Alerdings kann ich dem MdiChild keine OnClose
procedure geben. Habe folgenden Code.
Delphi-Quellcode:
unit unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
procedure NeueForm;
procedure MDIChildClose(Sender: TObject;
var Action: TCloseAction);
var
Form: TForm;
Nummer: Integer = 0;
implementation
uses unit1;
procedure NeueForm;
begin
Inc(Nummer);
Form := TForm.Create(MainFrm);
with Form
do begin
Caption := '
Dokument' + IntToStr(Nummer);
FormStyle := fsMDIChild;
Height := 450;
Left := 8;
Name :='
Dokument' + IntToStr(Nummer);
Top := 8;
Width := 450;
OnClose := MDIChildClose;
end;
end;
procedure MDIChildClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
Nun kommt alerdings immer eine Fehlermeldung.
Zitat:
Inkompatible Typen: Methodenzeiger und reguläre procedure
Weiß net wie ich das andersmachen soll und was ich anders machen
soll.