[Lazarus-es] devolver valor de un form

[Eduardo Lopez]

Hola... así lo resolví yo, quizás haya alguna forma mejor, pero esto es 
lo que hice:

En el botón que llama al Formulario de búsquedas tengo lo siguiente:

procedure TFormMovStock.BotonBuscaArticuloClick(Sender: TObject);
begin
     FormBuscaArticulo := TFormBuscaArticulo.Create(nil);
      try
        FormBuscaArticulo.ShowModal;
      finally
        begin
          if FormBuscaArticulo.pAceptoForm then
             Spin_ART_ID.Value:=FormBuscaArticulo.pART_ID
          else Spin_ART_ID.Value:=0;
          FormBuscaArticulo.Free;
          Spin_ART_ID.SetFocus;
         end
      end;
end;

En el formulario de búsqueda propiamente habilité dos propiedades 
públicas para llenarlas con la respuesta y poder "retornarlas" al llamador:


   procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    pART_ID : Integer;
    pAceptoForm : Boolean;

    { public declarations }


Obviamente en botón Seleccionar del Formulario de búsqueda indico el 
pART_ID marcado y pongo pAceptoForm en verdadero y cierro el formulario.
El proceso llamador pregunta por los valores y finalmente destruye el 
formulario de búsqueda.

Saludos.
Eduardo


Paola Bruccoleri escribió:
> Hola...
>
> tengo un form con la lista de clientes; Quiero que se devuelva el 
> numero de cliente cuando se salga de ese form
> Ese form va a ser usado desde otros forms, donde se pida como dato el 
> cliente y haya que buscarlo. Uso para eso un editbutton, de tal forma 
> que al hacer clic en el botoncito aparezca la ventana de busqueda, y 
> cuando retorne, tenga el código ya escrito en el campo.
> En algunas épocas use una variable global con el codigo elegido, pero 
> no me gusta nada ese sistema.
> He pensado en usar una variable publica de la clase TListaClientes, 
> pero no tengo todavía muy claro como hacerlo.
> Alguna idea??
> chauuuuuuuuuuuuuu
>
> =======================
> A/P Paola Bruccoleri Arrambide
> San José de Mayo - San José - URUGUAY
>
> Blog: http://paolabruccoleri.reducativa.com
> Portal Educativo: http://www.reducativa.com.uy
> Wiki: http://wiki.reducativa.com
> Material sobre las XO: 
> http://www.reducativa.com/wiki/index.php?title=Proyecto_OLPC_-_Plan_Ceibal 
>
> Cartillas XO Sugar 8.2: 
> http://www.reducativa.com/wiki/index.php?title=Cartillas_sobre_uso_de_la_XO 
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>