Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-07-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Llenar un ListBox con las impresoras disponibles

Cómo llenar un ListBox con las impresoras disponibles

Código Delphi [-]
with ListBox1 do
begin
  for i := 0 to QRPrinter.Printers.Count do
    Items.Add(QRPrinter.Printers.Strings[i]);
end;
Responder Con Cita
  #2  
Antiguo 21-07-2006
Mick Mick is offline
Miembro
 
Registrado: may 2003
Posts: 405
Poder: 21
Mick Va por buen camino
Lo cierto es que lo normal seria hacerlo con una sola linea, y nos ahorramos el bucle:

Código:
ListBox1.Items.Assign(QRPrinter.Printers);
Saludos
Responder Con Cita
  #3  
Antiguo 19-04-2007
Avatar de Alcolea
Alcolea Alcolea is offline
Miembro
 
Registrado: abr 2006
Ubicación: Santiago de Cuba, Cuba
Posts: 100
Poder: 18
Alcolea Va por buen camino
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;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 14:30:52.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi