Hallo,
Ich habe ein Hauptfenster, indem ich ein Unterfenster folgendermaßen erstelle:
Delphi-Quellcode:
procedure TForm1.HistoryBtnClick(Sender: TObject);
begin
if not Assigned (History) then begin
History:= THistory.Create(nil);
History.Show;
end else
History.Close;
end;
Das History Fenster hat nur diese Funktion on ein onShow Ereigniss:
Delphi-Quellcode:
procedure THistory.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil (History);
end;
Nach 3x Button klicken, kommt plötzlich ein Fehler, was mach ich hier falsch?