listbox automatico
playmepe
07 de Mayo del 2008
PUBLICIDAD
Hola comunidad delphi saludos desde Perú cordialmente a todos los
foristas de la red. mi consulta es lo siguente: he creado mi
aplicacion en donde puedo cargar archivos de texto desde la pc a un
LISTBOX, esta lista de archivos de texto los visualo uno por uno en un
LABEL secuencialmente iniciando desde el primer item y hasta el final
hasta ahi me va bien. Quisiera que me ayuden en lo siguiente: lo que
quiero es que al terminar la lista de textos, inicie nuevamente la
lista desde el primer item de la lista, o sea que vaya rotando sin fin
la lista de los archivos de texto del LISTBOX.
Tambien quisiera saber como puedo visualizar secuencialmente imagenes
jpg ( o todo tipo de formatos ) desde un LISTBOX en un TIMAGE. los
archivos de imagenes los cargo desde la pc al lisbox despues que esté
corriendo la aplicacion .
Hola comunidad delphi saludos desde Perú cordialmente a todos los
foristas de la red. mi consulta es lo siguente: he creado mi
aplicacion en donde puedo cargar archivos de texto desde la pc a un
LISTBOX, esta lista de archivos de texto los visualo uno por uno en un
LABEL secuencialmente iniciando desde el primer item y hasta el final
hasta ahi me va bien. Quisiera que me ayuden en lo siguiente: lo que
quiero es que al terminar la lista de textos, inicie nuevamente la
lista desde el primer item de la lista, o sea que vaya rotando sin fin
la lista de los archivos de texto del LISTBOX.
Tambien quisiera saber como puedo visualizar secuencialmente imagenes
jpg ( o todo tipo de formatos ) desde un LISTBOX en un TIMAGE. los
archivos de imagenes los cargo desde la pc al lisbox despues que esté
corriendo la aplicacion .
coso
07 de Mayo del 2008
no se como vas pasando secuencialmente de un elemento del listbox a otro pero seria algo como:
while (condicion para salir del bucle, no se cual quieres q sea) do
begin
for i := 0 to ListBox1.Count - 1 do
begin
Label.Caption := ListBox1.Items[i].Text;
Application.ProcessMessages;
end;
end;
El TImage tiene una opcion para cargar desde el fichero (TImage.LoadFromFile) esto te sale en la misma ayuda del delphi. Buscala q seguro q la encuentras. Lo q no se es si carga .JPGs ....
while (condicion para salir del bucle, no se cual quieres q sea) do
begin
for i := 0 to ListBox1.Count - 1 do
begin
Label.Caption := ListBox1.Items[i].Text;
Application.ProcessMessages;
end;
end;
El TImage tiene una opcion para cargar desde el fichero (TImage.LoadFromFile) esto te sale en la misma ayuda del delphi. Buscala q seguro q la encuentras. Lo q no se es si carga .JPGs ....