volvamos al inicio...
procedure A;
begin
if comando = 'nuevo' then
begin
procedure B(Parametro);
exit;
{ como ves hasta que no termine el procedimiento B no sale
el procedimiento A, esto es lo que necesito, bien sea que el
procedmiento A continue su ejecucion sin esperar al
procedimiento B o que termine cuando llame al procedimiento
B}
end;
end;
procedure B(Parametro);
begin
form2.show;
end;
__________________
Diego. Colombia es pasión.
|