Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Crear Formulario que me devuelva un valor (https://www.clubdelphi.com/foros/showthread.php?t=16401)

coulthard 26-11-2004 10:51:45

Crear Formulario que me devuelva un valor
 
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 26-11-2004 11:41:00

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 26-11-2004 13:32:53

Formulario que devuelva valor
 
Muchas gracias defcon1_es, lo que me has comentado era justo lo que me hacia falta para arreglar mi problema.:D


La franja horaria es GMT +2. Ahora son las 11:26:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi