Cita:
Empezado por cadetill
hola
Pues en Delphi has de hacerlo más o menos de la siguiente manera:
Código Delphi [-]
procedure TForm1.SalirBucleClick(Sender: TObject);
begin
Salir := true; 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; Application.ProcessMessages;
end;
end;
Mas o menos
Espero te sirva
|
Gracias a Cadetill por la explicacion grafica
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
|