Inquietud {$ifdef} and {$define}

[Soa Pelaez]

Estoy tratando de realizar uses con directivas, pero aun no logro que funcione, alguien podría colaborarme lo estoy intentando realizar de esta manera.

[Casimiro Noteví]

¿Está dañado ese archivo?

[Ñuño Martínez]

Debe estarlo, porque cuando lo abro no tiene ningún contenido.

[cloayza]

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