Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Wie bekomme ich den ausgewählten Drucker zurück?


motion - Do 19.05.11 21:03
Titel: Wie bekomme ich den ausgewählten Drucker zurück?
Ich zeige dem Anwender den TFilePrintsetup Druckerauswahl-Dialog.
Laut Doku braucht man keine OnAccept Action zu schreiben, weil der Dialog "den Drucker selbst richtig konfigueriert" (was und wie? Irgendwas in TPrinter?)
Trotzdem brauche ich das OnAccept Ereignis, weil ich den ausgewählten Druckernamen brauche.
Hat da jemand einen Tip?


Gerd Kayser - Do 19.05.11 22:03

user profile iconmotion hat folgendes geschrieben Zum zitierten Posting springen:
Trotzdem brauche ich das OnAccept Ereignis, weil ich den ausgewählten Druckernamen brauche.

Versuchs mal damit:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
// uses Printers;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if PrinterSetupDialog1.Execute then
    Label1.Caption := Printer.Printers[Printer.PrinterIndex];
end;


motion - Do 19.05.11 22:08

Tatsächlich, der printerindex wird geändert!
Pretty simple.
Danke für die schnelle Antwort!