Testformular, nur ein MainMenu und ein OpenDialog
Sobald ich den OpenDialog ausgeführt habe (auch beim Abbrechen) und danach das Programm beende, bekomme ich nach dem Beenden den Fehler Exception External: SIGSEGV
Nachvollziehbar an drei verschiedenen Programmen
Was kann denn da falsch laufen?
Code: Alles auswählen
TForm1 = class(TForm)
MainMenu1: TMainMenu;
OpenDialog1: TOpenDialog;
OpenMenuItem: TMenuItem;
procedure OpenMenuItemClick(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.OpenMenuItemClick(Sender: TObject);
begin
if Opendialog1.execute then
begin
//
end;