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 !