FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#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; |
|
|
|