FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Llenar un ListBox con las impresoras disponibles
Cómo llenar un ListBox con las impresoras disponibles
|
#2
|
|||
|
|||
Lo cierto es que lo normal seria hacerlo con una sola linea, y nos ahorramos el bucle:
Código:
ListBox1.Items.Assign(QRPrinter.Printers); |
#3
|
||||
|
||||
A mi esto me sale mejor así:
Agrego en las Uses la unidad QPrinters y pongo este código procedure TForm1.FormCreate(Sender: TObject); var i : integer; begin with ListBox1 do begin for i := 0 to Printer.Printers.Count - 1 do Items.Add(Printer.Printers[i]); end; end; |
|
|
|