como acceder a los controles de un formulario desde otro

[_CALI]

gracias por responder ecfisa, pero mi planteo es algo diferente siguiendo el el siguiente esquema:




formulario principal es FMain que esta en la unit1
formulario clientes es FChild que esta en la unit2, ahi es donde esta el Edit
formulario buscar clientes es Fchid_b que esta en la unit3, ahi es donde esta el boton

ahora como hago para cambiar el edit del formulario clientes 2 desde el boton del formulario buscar clientes 2?, siguiendo tus recomendaciones si hago eso se cambia el edit del formulario clientes 1 mas no del formulaario clientes 2 , ojala me explique bien , muchas gracias de antemano!!!

[ecfisa]

ahora como hago para cambiar el edit del formulario clientes 2 desde el boton del formulario buscar clientes 2?,

Hola _CALI.

Bueno, en ese caso basta con que agregues la clausula uses clientes 2, al formulario buscar clientes 2:

Código Delphi [-]
...
implementation {$R *.dfm}

uses Unit2; { Unidad donde está el form Clientes (FClientes) }

procedure TFBusqueda.Button1Click(Sender: TObject);
begin
  FClientes.Edit1.Text:= 'Aqui desde FBusqueda... ¿ Todo bien por allá ?';
end;
...

Saludos.

[_CALI]

me causa el mismo resultado solo se cambia el edit de un formulario clientes,

la idea es que x ejemplo estando 3 formularios clientes abiertos, se cambie el edit del formulario clientes que llama a su propio buscar clientes uno para cada uno me acuerdo q lograba eso escribiendo lo siguiente:

(Self.Parent as FrmClientes).Edit1.Text := 'Hola padre!!';

donde Self.Parent es el formulario padre q llama a buscar clientes correspondiente


Muchas gracias amigo(a) de todas maneras!!!

[ecfisa]

Hola de nuevo _CALI.

Perdón pero realmente creo no entenderte...

¿ Lo que buscas es que todos los FClientes abiertos reciban en su respectivo Edit, el texto que envía FBuscarCliente ?

Saludos.

[_CALI]

Empezado por ecfisa

Hola de nuevo _CALI.

Perdón pero realmente creo no entenderte...

¿ Lo que buscas es que todos los FClientes abiertos reciban en su respectivo Edit, el texto que envía FBuscarCliente ?

Saludos.

Claro!! su correspondiente FBuscarCliente
ejemplo:

FBuscarCliente 1 que modifique el edit del FCliente1
FBuscarCliente 2 que modifique el edit del FCliente2
FBuscarCliente 3 que modifique el edit del FCliente3
.
.
FBuscarCliente N que modifique el edit del FCliente N

Gracias por tu apoyo

[ecfisa]

Empezado por _CALI

Claro!! su correspondiente FBuscarCliente
ejemplo:

FBuscarCliente 1 que modifique el edit del FCliente1
FBuscarCliente 2 que modifique el edit del FCliente2
FBuscarCliente 3 que modifique el edit del FCliente3
.
.
FBuscarCliente N que modifique el edit del FCliente N

Hola _CALI.

Si es así, serviría el ejemplo de arriba.

Para BuscarCliente1 sería:

Código Delphi [-]
implementation
uses Unit2; { FCliente1 }

procedure TFBusqueda.Button1Click(Sender: TObject);
begin
  FCliente1.Edit1.Text:= 'MENSAJE';
end;

Para BuscarCliente2:

Código Delphi [-]
implementation
uses Unit4; { FCliente2 }

procedure TFBusqueda.Button1Click(Sender: TObject);
begin
  FCliente2.Edit1.Text:= 'MENSAJE';
end;

...

Es decir, incluyendo la unidad de cada FCliente(N) en cada unidad BuscarCliente(N) que tengas...

Saludos.

[_CALI]

GRACIAS!!!, pero sucede que cada FCliente es uno mismo Fcliente 1, FcLiente2 ... FClienteN es un solo formulario que esta en la unidad 2
y cada FBuscarCliente tambien es un solo formulario, solo que lo llamo varias veces hay varias instacias de FClientes y de FBuscarCliente, por eso es medio complicado sigo renegando sin solucionarlo jejejej Gracias de nuevo

[_CALI]

despues de tanto laberinto aveces las soluciones son las mas faciles

orientandome en tu codigo pude resolver mi problema muy efectivamente


suponiendo q tenemos un form principal, y dos fromularios hijos child
que son clientes y busqueda de clientes

me di cuenta que MDIChildren[0] es el formulario hijo activado osea activeMDIChild

pues entonces MDIChildren[1] es el "parent" de MDIChildren[0] cierto???

entoces simplemmnte puse:

if (application.mainform.MDIChildren[1] is TFRMClientes) then
(application.mainform.MDIChildren[1] as TFRMClientes).Edit1.text := 'por fin';


Gracias denuevo ecfisa me sirvio de mucho tu colaboracion!!!