retornar de un Form

[ericgs]

buno gente estoy arrancando con delphi y tengo esta duda, como puedo hacer para retornar un dato (ya sea un objeto o una lista o un entero o lo q sea) desde un Form??? ejemplo. supongamos q tengo un form (probablemente modal) para hacer una búsqueda de una lista elementos, como retorno el elemento seleccionado???

Gracias

[delphi.com.ar]

Puedes hacer dos cosas, la primera y mas básica es leer desde donde has creado el form las propiedades de los componentes. Todos los componentes que adhieras al form desde el editor siempre quedan como públicos.
Lo que yo suelo hacer, cuando un form tiene una funcionalidad particular, es lo siguiente:

Código Delphi [-]
function TfrmFileDialog.Execute(const Title, Msg: string; var Value: string): boolean;
begin
  Caption := Title;
  lbMessage.Caption := Msg;
  edFileName.Text := Value;

  Result := ShowModal = mrOk;

  if Result then
    Value := edFileName.Text;
end;

Y en lugar de llamar al ShowModal, utilizo la función Execute definida por mi que me soluciona toda la lógica propia del formulario.

Saludos!

[Neftali [Germán.Estévez]]

O lo añades como propiedad del form.
Después de visualizarlo y antes de destruirlo la consultas. Algo así:

Código Delphi [-]
form1 := TForm1.Create(...)
try
  Form1.ShowModal;
  Valor := Form1.MiPropiedad;
finally
  FreeAndNil(form1);
end;

En el OnClose del Form1 recuerda asignar:

Código Delphi [-]
Action := caHide;

[ericgs]

ok, gracias amigos, me despejaron una duda antes de q meta la pata en el diseño gracias

[ericgs]

oto problema, el form termino siendo mdi y no consigo salir de el sin eliminarlo, se minimiza como default, les paso algo de codigo, en el main lo creo asi:

procedure TMainForm.EliminarDepartamento1Click(Sender: TObject);
var
vElimDep: TfmSeleccionarDepartamento;
begin
vElimDep := TfmSeleccionarDepartamento.Create(self);
ShowWindow(vElimDep.Handle, SW_SW_SHOWNORMAL );
end;

[ecfisa]

Hola.

En el evento OnClose de TMainForm, ponè lo siguiente:

Código Delphi [-]
begin
   Action:= caFree;
end;

Saludos.

[JoseAntonio]

Yo lo hago utilizando una funcion de clase, mas o menos el codigo es asi...

Código Delphi [-]
Unit FormSelLote
...
class function TfrmSelLote.GetLote(AClient, ADoc: Integer): integer;
var
  ...
  AFrmSelLote: TfrmSelLote;
begin
   ....
  try
    AfrmSelLote := TFrmSelLote.Create(Application);    
    if AfrmSelLote.ShowModal = mrOk then
      result := AfrmSelLote.fLote
    else
      result := -1;
  finally
    AfrmSelLote.Free;
  end;
end;

// la llamada desde otro modulo seria asi

unit OtraUnidad
.....
AselLote := TfrmSelLote.getLote(ACliente, ADoc);

espero que sirva sl2

[Neftali [Germán.Estévez]]

Empezado por JoseAntonio

Yo lo hago utilizando una funcion de clase, mas o menos el codigo es asi...

ericgs has comentado más arriba que no debe ser modal, de ahí el problema que se plantea.

[ericgs]

Muchas gracias, la verdad no se me hubiera ocurrido, gracias a todos.

Un saludo

[roman]

Para mi gusto, la opción de Neftalí es la más adecuada. No obstante, sería bueno que te cuestionaras si lo que estás haciendo es lo más correcto. Un formulario como TfmSeleccionarDepartamento tiene toda la pinta de ser un formulario modal, no hay porqué hacerlo MDIChild. En una aplicación MDI puede haber formularios MDI y no MDI, y todo lo que sea o se asemeje a un cuadro de diálogo en donde el usuario va a escoger algo, debería se un formulario modal.

// Saludos

[ericgs]

es exactamente lo q le dije yo, pero como el programa sera introducido dentro de otro en el cual es todo mdi (o eso me dijeron) tiene q ser mdi.