Ver Mensaje Individual
  #2  
Antiguo 12-11-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola _CALI.

No sé si entendí muy bien tu planteo, pero a ver si es esto...

Supongamos que tenemos dos forms: FMain y FChild, con sus propiedades FormStyle en fsMDIForm y fsMDIChild respectivamente asignadas.
En FMain tenemos un TEdit y en FChild un TButton que al presionarlo le manda un texto al TEdit ubicado en FMain.
Una forma es que FChild incluya en la clausua uses a FMain y de ese modo podríamos usar al TEdit de FMain. (referencia circular)

Con un ejemplo:

FMain:
Código Delphi [-]
...
type
  TFMain = class(TForm)
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
  private
  public
  end;

var
  FMain: TFMain;

implementation {$R *.dfm}

uses Unit2; { donde esta TFChild }

procedure TFMain.FormShow(Sender: TObject);{ necesario si sacamos FChild de Auto-create forms }
begin
  TFChild.Mostrar;
end;
...


FChild:
Código Delphi [-]
...
type
  TFChild = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
    class procedure Mostrar;{ necesario si sacamos FChil de Auto-create forms }
  end;

var
  FChild: TFChild;

implementation {$R *.dfm}

uses Unit1; { donde esta TFMain }

class procedure TFChild.Mostrar;{ necesario si sacamos FChild de Auto-create forms }
begin
  if not Assigned(FChild) then
    FChild:= TFChild.Create(nil);
end;

procedure TFChild.Button1Click(Sender: TObject);
begin
  FMain.Edit1.Text:= 'Hola FMain...';
end;
...


Saludos.

Última edición por ecfisa fecha: 12-11-2010 a las 07:35:05.
Responder Con Cita