Directories and Conditionals

[bucanero]

Hola blaiselaborde

Una forma con la que puedes realizar de forma fácil lo que pretendes es definir un fichero de texto que por ejemplo llames config.inc y donde vas a definir la configuración personalizada para cada proyecto y se guarda en la misma carpeta del proyecto

En este fichero es en donde se define la directiva y su contenido es tan simple como añadir algo así para definir una directiva:

Código Delphi [-]
{$DEFINE NOTMAIN}

Ya en la unit donde vayas a usar las directivas condicionales cargas la configuración añadiendo antes del uses una llamada a la directiva {$i ...}

Código Delphi [-]
uses unitX;

{$i config.inc}

interface

uses ...
  ...
  ...
  ...
end.

y listo para usar las directivas condicionales.

En cuanto a tu código yo lo pondría de la siguiente forma:
para el uses:

Código Delphi [-]
Uses  DMJBS, DMImages, OneWayAppointment, LoginUnit, Common, DataModule, Data, RequestData{$IFNDEF NOTMAIN} ,main{$ENDIF};

Y tu procedimiento también podría quedar así:

Código Delphi [-]
Procedure TForm.acViewAccountExecute(Sender: TObject);
Begin
  Inherited;
{$IFNDEF NOTMAIN}
  If Not dsOutboundList.DataSet.IsEmpty then
    Begin
      FRM_Main.SearchforCust(dbgResults.Cells[4, dbgResults.Row]);
      pRefresh;
    End;
{$ENDIF}
End; // Proc

Un saludo