Insertar doto de un from a otro from

[Nayi]

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