Lamados de Formularios

[Michel]

Ejemplo


Unit1
***************************************

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Unit2;




procedure Tgb_fmSerieTX.cmdSalirClick(Sender: TObject);
begin

form2.show

end;
end.

Como hago para llamar a un componente del Unit1 desde el Unit2 si al colocar uses1 da un error de "Circular unit reference to unit1"
no se como hacer

Unit 2
************************************************
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Unit1;

procedure Tgb_fmSerieTX.cmdSalirClick(Sender: TObject);
begin

form1.show

end;
end.


o algo asii pero no sirve cuando lo hago en el unit2.

Que debo hacer gracias de antemano

[delphi.com.ar]

Si la unit1 utiliza cosas de la unit2 solo en la implementation, no utilices la unit2 en la interface sino en la implementation

unit Unit1;

interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms;

...

implementation

uses
  Unit2;


procedure Tgb_fmSerieTX.cmdSalirClick(Sender: TObject);
begin
  form2.show
end;

end.

Saludos!