|
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
|