Ver Mensaje Individual
  #4  
Antiguo 10-12-2015
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 947
Reputación: 25
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
A ver intenta de esta forma:

Primero: Debes crear un archivo que incluyas en tus unidades, y que este contenga todas las directivas de compilación que requiere tu proyecto.

Contenido de archivo a incluir en unidades

MIS_DEFINES.INC:
Código Delphi [-]
{ Directivas Condicionales de Compilación que afectaran mi programa}
{$DEFINE MENU}

{Puedes definir algunas directivas a partir de otras ya definidas}
{$IFDEF WIN32}
    {$DEFINE LA_PLATAFORMA_ES_WINDOWS_32}
{$ENDIF}

{Existen directivas que te indican la versión de Delphi que estas usando para compilar}
{$IFDEF VER280} { Borland Delphi XE7 21.x }
   {$DEFINE VERSION_DE_DELPHI_XE7
{$ENDIF}

Mas información sobre Directivas de versión de Delphi

Ahora cada vez que requieras estas directivas en tus unidades debes incluir este archivo .INC

Para ello haz lo siguiente:
Código Delphi [-]
unit Forma2;

{$I MIS_DEFINES.INC}

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons;

type
  TDForm2 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DForm2: TDForm2;

implementation

{$R *.dfm}

uses Forma3
{$IFDEF MENU}
 ,Forma1;

{$ELSE}
;
{$ENDIF}


procedure TDForm2.SpeedButton1Click(Sender: TObject);
begin
  {$IFDEF MENU}
  Forma1 := tforma1.Create(Self);
  Forma1.ShowModal;
  Forma1.Free;
  {$ELSE}
  MessageDlg('OTRO MODULO', mtInformation, [mbOK], 0);
  {$ENDIF}
end;
end.

Saludos cordiales
Responder Con Cita