Guten Abend,

ich versuche gerade, einer zur Laufzeit erstellten Form das onClose Event zu zuweisen. Es kommt aber immer ein Fehler mit dem ich nichts anfangen kann.

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Form: TForm;
begin
 Form:=TForm.Create(Self);
 with Form do
 begin
   Left:=100;
   Top:=100;
   OnClose:=Button2Click;
   ShowModal;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ShowMessage('Die neue Form wird geschlossen.');
end;

end.

Fehler

Zitat:

[Pascal Fehler] Unit1.pas(36): E2009 Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'

Weiß einer warum?

Die Meldung sag es doch schon. Die OnClose-Methode muss andere Parameter als deine OnClick-Methode haben.

Das war mir bewußt aber welche brauche ich?

Schau dir doch einfach die Parameter im Prozedur-Kopf deiner Hauptform an, dann weißt du es.

habe habe jetz mit "caFree" herumprobiert. Ich schaffe es nicht. Es wäre nett wenn mir einer mal ein Beispiel geben kann. Wäre nett.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 Form: TForm;
begin
 Form:=TForm.Create(Self);
 with Form do
 begin
   Left:=100;
   Top:=100;
   OnClose:=CloseForm(caFree);
   ShowModal;
 end;
end;

procedure TForm1.CloseForm(Sender: TObject);
begin
 ShowMessage('Die neue Form wird geschlossen.');
end;

Gruß, Sven

Hallo Sven,

der Prototyp der Behandlungsroutine für das OnClose-Ereignis wird von Borland fest vorgegeben, den kannst du nicht ändern:

procedure (Sender: TObject; var Action: TCloseAction) of object; Deine Methode CloseForm muß die gleiche Signatur besitzen:

markieren

Delphi-Quellcode:

procedure TForm1.CloseForm (Sender: TObject; var Action: TCloseAction);
begin
  ShowMessage('Die neue Form wird geschlossen.');
end;

Die Zuweisung sieht dann so aus:

markieren

Delphi-Quellcode:

with Form do
begin
  ...
  OnClose := CloseForm;
  ...
end;

Gruß Hawkeye

danke, war mir alles nicht bewußt.

Nochmals Danke.