Form de busqueda

[afunez2007]

Normalmente se hace toda la programacion en el boton que tiene la lupa para ejecutar el form de busqueda:

1.- Declaras una variable global en el form de los abonos.

Código Delphi [-]
unit FrMAltaMovi1;

var
  FrMAltaMovi: TFrMAltaMovi;
  Seleccion:Boolean;
implementation

uses Busq_clie_AltMov1, SConcep1, BusqVend1, Unit13, Fact_alta1;

{$R *.dfm}

procedure TFrMAltaMovi.BitBtn1Click(Sender: TObject);
begin
Seleccion:=False;
Busq_clie_AltMov := TBusq_clie_AltMov.Create(nil);
  Try
     Busq_clie_AltMov.ShowModal;
     If Seleccion=True then
     begin
              editclave.text:=Busq_clie_AltMov.qryCliente.FieldbyName('Clave').text;   
labelnombre.Camption:=Busq_clie_AltMov.qryCliente.FieldbyName('Nombre').text; 
end;  
  Finally
   freeandnil(Busq_clie_AltMov)
  End;

end;

en el boton aceptar de la forma de busqueda debes cambiar la variable a true:

Código Delphi [-]
procedure TBusq_clie_AltMov.BitBtn1Click(Sender: TObject);
begin
FrMAltaMovi1.Seleccion:=True;
close;
end;