Crear Formulario que me devuelva un valor

[coulthard]

Hola a todo el mundo y muchas gracias de antemano por su atencion.

Mi problema es que tengo un ActiveForm y necesito mostrar otro formulario para que el usuario introduzca un String. Hasta ahi parece sencillo, lo que pasa es que si creo un nuevo formulario, no puedo referirme al ActiveForm. Mi idea es crear un componente parecido a los que existen en la pestaña Dialogs, porque se que esos funcionan con el ActiveForm, es decir, si utilizo por ejemplo un OpenDialog al seleccionar un archivo me devuelve correctamente su ruta. Por lo tanto de la misma forma, yo querria devolver el String que el usuario introduzca en un TEdit.
Espero haberme explicado con claridad.

[defcon1_es]

Hola,
puedes usar la función InputBox, pero personalmente no me gusta la ventana que mustra esta función,
y puedes crear una función, que se encargue de crear el formulario y devuelva el valor del mismo.

Ejp:
Supon que FormularioEntrada tiene una variable pública llamada Resultado,
de tipo String.

Código Delphi [-]
function ValorTecleado: String;
begin
  FormularioEntrada := TForm.Create(Application);
  try
    if (FormularioEntrada.ShowModal = mrOK)
    then Result := FormularioEntrada.Resultado
    else Result := '';
  finally
    FormularioEntrada.Free;
  end;
end;

Adáptalo a tus necesidades....

[coulthard]

Muchas gracias defcon1_es, lo que me has comentado era justo lo que me hacia falta para arreglar mi problema.