| Hauptmenü | |||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
|
| Anwender soll einen der verfügbaren Drucker auswählen können |
|
|
| Geschrieben von Lemmy | |
| Sonntag, 19. Februar 2006 | |
|
So geht's: 1. Eine Combobox Namens "Combo_Printers" ins Formular legen 2. Ins Ereignis des FormCreate und in Combo_PrintersChange folgende Zeilen einfügen //Uses Printers nicht vergessen! procedure TForm1.FormCreate(Sender: TObject); begin If Printer.Printers.Count>0 Then Begin Combo_Printers.Items:=Printer.Printers; //verfügbare Drucker in Combo Combo_Printers.ItemIndex:=Printer.PrinterIndex; //markiert aktiven Drucker End; end; procedure TForm1.Combo_PrintersChange(Sender: TObject); begin Printer.PrinterIndex:=Combo_Printers.ItemIndex; End; Hinweis: Soweit verfügbar kann auch der PrinterDialog sowie der PrinterSetupDialog von Delphi verwendet werden! |
| < Zurück | Weiter > |
|---|