como acceder a los controles de un formulario desde otro

[_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

[ecfisa]

Recién ahora te entiendo!

Lo voy a pensar, si se me ocurre algo te aviso.

Saludos

[ecfisa]

Hola _CALI.

Como lo prometido es deuda, despues de unas pruebas, aca vuelvo.
La unit que tiene el form FBusca (la que cambia el Edit), debe utilizar FMain y FClientes.
Debes respetar cierta regla en la creación de los nombres de los forms FBusca y FClientes. Serán los nombres que decidas; pero seguidos de un número consecutivo. (esto para poder discriminarlos).

Bueno, vamos al código:

FMain (Unit1): Sólo tiene un MainMenu con un item 'Crear'.

Código Delphi [-]
...
type
  TFMain = class(TForm)
    MainMenu1: TMainMenu;
    Organizar1: TMenuItem;
    Crear1: TMenuItem;
    procedure Crear1Click(Sender: TObject);
    procedure Ventanas1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FNumChild: Integer;
  public
  end;

var
  FMain: TFMain;


implementation  {$R *.dfm}

uses Unit2, Unit3;

procedure TFMain.FormCreate(Sender: TObject);
begin
  FNumChild:= 1;
end;

procedure TFMain.Crear1Click(Sender: TObject);
begin
  with TFCliente.Create(nil) do
  begin
    Name:= 'FCliente'+IntToStr(FNumChild);
    Caption:= Name;
    Show;
  end;
  with TFBusca.Create(nil) do
  begin
    Name:= 'FBusca' + IntToStr(FNumChild);
    Caption:= Name;
    Show;
  end;
  Inc(FNumChild);
  TileMode:= tbVertical;
  Tile;
end;
end.

FCliente (Unit2): Sólo tiene un edit: TEdit1, el receptor que deberá llamarse así . ( no agrego el código)

FBusca (Unit3): Sólo tiene un TButton.

Código Delphi [-]
...
type
  TFBusca = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  FBusca: TFBusca;

implementation {$R *.dfm}

uses StrUtils, Unit1, Unit2;

procedure TFBusca.Button1Click(Sender: TObject);
var
  i: Integer;
  Nombre: string;
begin
  for i:= 0 to FMain.MDIChildCount -1 do
  begin
    Nombre:= FMain.MDIChildren[i].Name;
   //Si decidis darle otro nombre que FCliente al form Clientes, debes cambiarlo también aqui,
   // lo mismo para Edit1 de FCliente.
    if (Pos('FCliente',Nombre) <> 0)and(RightStr(Nombre,1)=RightStr(Name,1))then
      (FMain.MDIChildren[i] as TFCliente).Edit1.Text:= 'SALUDOS DE '+Name;
  end;
end;
end.

Saludos.

[ecfisa]

Hola de nuevo.

Una variante del código anterior puede ser:
FMain:

Código Delphi [-]
  with TFCliente.Create(nil) do
  begin
    Tag:= FNumChild;
    Show;
  end;
  with TFBusca.Create(nil) do
  begin
    Tag:= FNumChild;
    Show;
  end;
  Inc(FNumChild);

FBusca:

Código Delphi [-]
procedure TFBusca.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to FMain.MDIChildCount -1 do
  begin
    if (FMain.MDIChildren[i] <> Self) and
       (FMain.MDIChildren[i].Tag = Tag) then
      (FMain.MDIChildren[i] as TFCliente).Edit1.Text:= 'SALUDOS DE ' + Name;
  end;
end;

De este modo evitas la restricción de nombres que tiene el código anterior, pero tenés que cuidar el valor de los Tag's
que asignes al resto de los Forms. Una posibilidad es inciar FNumChild a un valor alto que sepas, no vas a usar para
el resto.

Saludos.

[_CALI]

Gracias ecfisa!!! te pasaste. Saludos!!!

[_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!!!

[ecfisa]

Hola _CALI.

Funciona de forma segura siempre y cuando tengas sólo un par de MDIChilds abiertos. Pero puede no ser así si hay más pares de forms abiertos.

Supongamos que tenemos abiertos dos pares de forms creados en este órden: FSender, FReceiver.
Creamos cuatro:
1:FSender1
2:FReceiver1
3:FSender2
4:FReceiver2

El form activo es ahora FReceiver2.

Si en esta instancia haces click en el TButton del form FSender1, le enviará el mensaje a FReceiver2 y no es el comportamiento que buscas.

Por otro lado si haces click en el TButton del form FSender2, FReceiver2 recibe el mensaje; pero FReceiver1 no recibirá ningun mensaje hasta que adquiera el foco ( sea el form activo ).

Para que este efecto no se produzca es necesario hacer click sobre cada form FReceiverN (hacerlo activo) para luego enviar el mensaje.
Ahora, si es condición necesaria que el form receptor este activo para que pueda recibir un mensaje, funciona.

Espero haberme explicado bien...

Saludos.