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:
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;
Un saludo