Ver Mensaje Individual
  #5  
Antiguo 28-02-2012
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Reputación: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Tienes dos partes en una unit: Interfaces e implemantation.
Ambas tienen una sección uses.
Deberás poner una en un uses de una parte y otra en la otra.
Código Delphi [-]
unit UFMPrueba_A;

interface

uses
  Windows, Classes, Forms;

type
  TFMPrueba_A = class(TForm)
     Boton: TButton;
     ...
  private
     { Private declarations }
  public
     { Public declarations }
  end;

var
  FMPrueba_A: TFMPrueba_A;

implementation

{$R *.DFM}

uses UPrueba_B;
...

------------------------------------------------------------
unit UFMPrueba_B;

interface

uses
  Windows, Classes, Forms;

type
  TFMPrueba_B = class(TForm)
     ...
  private
     { Private declarations }
  public
     { Public declarations }
     procedure Evento(Sender: TObject);
  end;

var
  FMPrueba_B: TFMPrueba_B;

implementation

{$R *.DFM}

uses UPrueba_A;

procedure TFMPrueba_B.Evento(Sender: TObject);
begin
   UFMPrueba_A.Boton.Enabled := False;
end;
...
Responder Con Cita