Einzelnen Beitrag anzeigen

schweindi

Registriert seit: 4. Feb 2010
60 Beiträge
 
#1

EExternal Exception beim Schließen eines Formulars

  Alt 4. Feb 2010, 19:01
Hallo alle
mein Problem ist wahrscheinlich ganz einfach und schnell zu lösen, aber ich komme einfach nicht zur Lösung und zerbreche mir den Kopf darüber:
Ich habe ein Hauptformular, auf dem unter anderem ein Button ist der ein neues Formular "f_about" erstellt.
Diese neue Form hat dann drauf noch einen Button und ein Label bt_end & l_about.
Delphi-Quellcode:
procedure TForm1.ber1Click(Sender: TObject);
var BtClick1:TNotifyEvent;
begin
f_about:=TForm.Create(Application);
...
f_about.ParentWindow:=0;
bt_end:=TButton.Create(f_about);
bt_end.Parent:=f_about;
...
bt_end.OnClick:=BtClick1;
l_about:=TLabel.Create(f_about);
l_about.Parent:=f_about;
...
f_about.Show;
end;
so und dann hab ich noch die procedure BtCklick1:
Delphi-Quellcode:
procedure BtClick1 (Sender: TObject);
begin
f_about.Release;
end;
eigentlich ja ganz einfach... wenn ich das Programm jetzt aber ausführe kommt folgender Fehler: "Project test.exe raised exception class EExternalException with message 'External Exception C000001D'. Process stopped. Use Step or run to continue."
danach springt das programm in die dpr:

Delphi-Quellcode:
program Ptest;

uses
  Forms,
  test in 'test.pas{Form1};

{$R *.RES}
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
bei "end." ist der "debug-pfeil"...

ich habe leider keinen Plan, wieso der Button nicht die form f_about schließt. Ich habe schon probiert die procedure "procedure f_about.BtClick1(Sender: TObject);" zu nennen, dann kommt aber der Fehler "identifier redeclared: f_about".

ich hoffe jemand kann mir da helfen

lg
  Mit Zitat antworten Zitat