Hola Yensis22
Una forma sería:
procedure TFFacturacion.BSeleccionarClick(Sender: TObject);
begin
FRegistroclient:=TFRegistroclient.Create(self);
if FRegistroclient.modalresult = mrok then
begin
if begin
EdiCliente.Text := FRegistroclient.Nom_Cliente;
LabDireccion.Caption:= QuotedStr(FRegistroclient.Direccion);
end;
end;
FRegistroclient.Free;
end;
Otra opción es que direcciones la unidad FFacturacion en los USES de la unidad FRegistroclient y adiciones un evento onchange en el componente donde seleccionas el cliente haciendo algo como esto;
procedure FRegistroclientcampoONCHANGE(Sender: TObject);
BEGIN
FFacturacion.EdiCliente.Text := cliente.text;
//o nom_Cliente si es que primero lo pasas a la variable
END;
entonces esto cada que cambies el cliente te lo va actualizando directamente en la otra forma, de hecho no necesitarías la variable nom_cliente porque en el mismo evento onchange del componente donde captures el cliente lo haces.
Bye
|