PrintDialog führt zum Absturz

[SteffenSchm]

Hallo alle zusammen,

mein Programm stürzt schon beim Programmaufruf ab, wenn auf dem PC kein Drucker installiert. Wenn ich das Programm unter Delphi laufen lasse, bekomme ich die etwas ausführlichere Meldung:

Zitat:

Fehler beim Lesen von PrintDialog.Copies: Zur Zeit ist kein Stadarddrucker gewählt.

Den Delphi-Standard-Dialog TPrintDialog habe ich direkt auf MainForm gezogen. Ich hatte eigentlich erwartet, dass die Delphi-Standard-Komponenten mit solchen Fällen (kein Drucker installiert) umgehen können.

Gibt es eine einfache Möglichkeit den Absturz in dem speziellen Fall zu vermeiden? Hat jemand eine ähnliche Erfahrung gemacht ?

[Lannes]

Hallo,

schau Dir mal TPrintDialog.Options an, und dort die Konstate poWarning.
Eventuell hilft Dir auch TPrinter.Printers weiter, diese Eigenschaft enthält eine Liste der installierten Drucker.

[kingflo]

Kann man den Dialog sonst nicht mit

try
dialog.execute;
except

end;

aufrufen?

[sh17]

PrintDialog von Hand bei Bedarf erzeugen, falls Printers.Count > 0

[SteffenSchm]

Änderungen an TPrintDialog.Options bringt keine Änderung am Verhalten.

Ich habe jetzt den PrintDialog vom Hauptformular entfernt und ihn stattdessen mit Create in jeder Routine, in der ich ihne einsetzen wollte erzeugt (und natürlich mitr Free wieder freigegeben).

In diesem Fall reagiert das Programm korrekt. Wenn kein Drucker installiert ist erscheint eine Meldung ohne dass das Programm abstürzt.