Cita:
Nadie comentó:
procedure MuestraESAlmacen;
var
ventana: TESAlmacen;
Begin
ventana:=TESAlmacen.Create(Application);
if ventana.ShowModal=mrok then edit1.text:=ventana.edit1.text;
end;
ahora solo en el formulario esalmacen tenes que poner en el boton ok que sea mrok y listo
|
No veo como esto puede solucionar su problema. El formulario tendría que cerrarse en cuanto su propiedad ModalResult sea distinta de cero (mrNone) independientemente de cómo se llame a ShowModal.
// Saludos