Como parar un programa en ejecucion???

[__cadetill]

hola

Pues en Delphi has de hacerlo más o menos de la siguiente manera:

Código Delphi [-]
var
  Salir: boolean; // variable global al formulario

implementation

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Salir := false;
  for i := 0 to 100000 do
  begin
    if Salir then Break;
    Application.ProcessMessages;
  end;
end;

procedure TForm1.SalirBucleClick(Sender: TObject);
begin
  Salir := true;
end;

Mas o menos

Espero te sirva

[[eduarcol]]

Empezado por cadetill

hola

Pues en Delphi has de hacerlo más o menos de la siguiente manera:

Código Delphi [-]
var
  Salir: boolean; // variable global al formulario  = declarar una variable flag

Código Delphi [-]
procedure TForm1.SalirBucleClick(Sender: TObject);
begin
  Salir := true; //activarla al presionar 
end;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Salir := false;
  for i := 0 to 100000 do
  begin
    if Salir then Break; //Al final del ciclo mas interno si se activo salir del ciclo
    Application.ProcessMessages; 
  end;
end;

Mas o menos

Espero te sirva

Gracias a Cadetill por la explicacion grafica

[damian2000]

Muchas gracias por contestar tan rapido, de la forma que decis eduarcol y cadetill, ya lo hice, pero sin resultado, ya que como dije se queda como pillado y no me deja pulsar el boton, probare lo que dice roman, muchas gracias a todos, salu2

[Amilius]

Empezado por damian2000

Muchas gracias por contestar tan rapido, de la forma que decis eduarcol y cadetill, ya lo hice, pero sin resultado, ya que como dije se queda como pillado y no me deja pulsar el boton, probare lo que dice roman, muchas gracias a todos, salu2

El ejemplo funciona a la perfección.

¿Tal vez el problema es el lugar donde ubicaste la llamada a procesar mensajes? Mejor si te asegures que se lo llame alrededor de unas 4 a 8 veces por segundo. Ni muy seguido en lo posible ni tan poco frecuente que aún tengas que esperar un rato hasta que se procesen los mensajes.

[damian2000]

Pues ya me va perfectamente con el ejemplo que me habeis puesto, muchas gracias de new, salu2

[[eduarcol]]

A lo que se refiere Roman

Empezado por cadetill

Código Delphi [-]
for i := 0 to 100000 do
  begin
    if Salir then Break;
    Application.ProcessMessages; //Creo que a esto se refiere Roman
  end;
end;