Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-05-2006
ANG4L ANG4L is offline
Miembro
 
Registrado: nov 2005
Posts: 67
Poder: 19
ANG4L Va por buen camino
While mientras no se haga click

Buenas !!!!
Mi duda de la fecha es:
como hacer un while mientras no se haga un click en el form?
Tengo un form que escucha los clicks mouse, con un click se le da y empieza un while, y cuando se vuelve a clickear, deberia pararse (cosa que no logro resolver )
El codigo es el siguiente

Código Delphi [-]
procedure TForm1.FormClick(Sender: TObject);  
Begin 
if corriendo = false   then     
  corriendo:= true   
else     
  corriendo:= false;  

while corriendo do     
  If ListBox1.ItemIndex = ListBox1.Count -1  then         
    ListBox1.ItemIndex:= 0       
  else         
    ListBox1.ItemIndex:= ListBox1.ItemIndex + 1; 
end

PD: Corriendo es una variable global

Saludos gente, gracias !
__________________
Moment of chaos....

Última edición por Neftali [Germán.Estévez] fecha: 22-05-2006 a las 14:35:56.
Responder Con Cita
  #2  
Antiguo 22-05-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Añade un Application.ProcessMessages como primera línea del bucle.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 22-05-2006
ANG4L ANG4L is offline
Miembro
 
Registrado: nov 2005
Posts: 67
Poder: 19
ANG4L Va por buen camino
Se Agradeceeeeeee !!!! Funciono correctamente !
__________________
Moment of chaos....
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
implmentar Articulo click..click..run Crash ASAPLTDA OOP 0 21-01-2006 17:16:08
Click...click. tap. RUN? Crash! Un mejor RAD mamcx Conexión con bases de datos 0 13-04-2005 21:45:35
espero que este no haga polemica Ambar Humor 14 01-04-2004 02:48:12
Crear una external Function que haga un round RaulChemical Firebird e Interbase 3 16-02-2004 14:18:44
Dar Master Password a Paradox para que no lo haga el usuario nefy Conexión con bases de datos 3 03-01-2004 20:01:30


La franja horaria es GMT +2. Ahora son las 10:18:53.


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