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