ein Workaround ist folgendes: eine neue Prozedur erstellen in der alles gemacht wird was voher in btnCreateClick gemacht wurde, diese dann bei btnCreateClick aufrufen
Delphi-Quellcode:
procedure TForm1.create_close;
begin
try
try
ExcelObj:=CreateOleObject('
Excel.Application');
ExcelObj.Visible:= false;
ExcelObj.DisplayAlerts:=false;
ExcelObj.UserControl := false;
except
on e:
exception do
begin
ShowMessage(e.
Message+#13#10+
'
Kein Excel installiert?');
exit;
end;
end;
finally
close_excel;
end;
//close_excel;
end;
procedure TForm1.btnCreateClick(Sender: TObject);
begin
create_close;
ShowMessage('
pause');
//Excel wird nun schon vor dem Klick auf "OK" korrekt beendet
end;
wieso das funktioniert kann ich mir aber noch nicht erklären, habt ihr eine Idee?