|
Me gustaría reflotar este tema. Creo que muchos no entienden ya que la idea del Modal lo tomam como que lo importante es que el formulario vaya arriba pero lo mas importante en este caso es frenar la ejecución. He buscado mil veces y no encuentro como hacerlo.
La idea es la siguiente:
En el FORM1 tengo una función F1 esa función hace algo así :
functon TFORM1.F1 .....;
begin
Cero el FORM2
Muestro el FORM2
Espero a que cierren o acepten el FORM2
Y LO MAS IMPORTANE: En esta parte quiero hacer algo con el contenido del FORM2
end;
Esto fuera de Intraweb sería:
functon TFORM1.F1 .....;
begin
fr:=TFORM2.Create(self);
fr.showmodal;
//// Lo importante es bloquear la ejecución del código aqui
Hago lo que necesito con la información proveniente de FORM2
fr.Free;
end;
En Intraweb lo intente de mil maneras, la primera y mas lógica que a uno se le ocurre es :
functon TFORM1.F1 .....;
begin
fr:=TFORM2.Create(self);
fr.show;
while fr.visible do application.ProcessMessages;
//// Lo importante es bloquear la ejecución del código aqui
Hago lo que necesito con la información proveniente de FORM2
fr.Free;
end;
|