Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Lamados de Formularios (https://www.clubdelphi.com/foros/showthread.php?t=3186)

Michel 26-08-2003 20:03:27

Lamados de Formularios
 
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 26-08-2003 20:08:32

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

Código:

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!


La franja horaria es GMT +2. Ahora son las 00:32:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi