Directories and Conditionals

[[Lepe]]

Es así, pero vaya forma de complicarse las cosas con llamar mal las cosas ¿se entiende? NO, igual que el código

Has negado la directiva de compilación y eso te conlleva negar todos los "ifdef", además tienes un sinsentido (al leer el código): "{$IFNDEF NOTMAIN} ,main{$ENDIF};"

o sea, que si no está definida el NOTMain, entonces incluyo la unidad main... uff... traduce tío, traduce...

Hazlo mejor al revés definiendo la directiva de compilación así:
{DEFINE MAIN}

y el código queda: "{$IFDEF MAIN} ,main{$ENDIF};"
que leído resulta: "Si está definida la directiva MAIN, entonces incluye la unidad main.pas";más legible ¿no?

Saludos y recordad, las prisas no son buenas consejeras jejeje!

[bucanero]

Ciertamente poniéndolo como dice LEPE, sea la forma a priori mas legible, hay no voy a entrar a discutir.

En cuanto a mi respuesta, me he ceñido a la definición que tenia originalmente blaiselaborde

Aunque en mi caso particular, la formula usada por blaiselaborde, es una formula bastante utilizada, pues la historia es que para mis proyectos casi todos utilizan unos módulos generales comunes y por defecto se van a usar siempre para casi todos los proyectos, sin necesidad de definir nada en el config.inc. Y solamente en alguno de los proyectos puntualmente y como excepción puede ser que no se usen o no sean necesarios alguno de esos módulos, entonces es solamente para ese proyecto en particular en donde se define las directivas NOACTIVO para los módulos que no deseo cargar.

Para mi por tanto, el inconveniente principal de la opción de LEPE, de definir los directivas como activas frente a definir los directivas como noactivas, es que para todos los proyectos necesitaría definir las directivas de todos los módulos que quiero cargar, y en la mayoría de las veces serian prácticamente todos, por lo que tendría que definir montones de directivas en cada proyecto, mientras que si decido definir los que no voy a cargar, solo son unos pocos proyectos, y solo unos pocos módulos, por lo que tengo que definir solo algunas pocas directivas de negación.

Y todo esto para obtener simplemente una condición que a priori es un poco mas legible, para mi caso, lo considero una complicación innecesaria.

Un saludo

[Neftali [Germán.Estévez]]

Una vez que ya te han comentado cosas sobre los DEFINE, yo te diría que este problema, aunque se soluciona tal y come te han comentado, creo que denota que estás realizando un mal diseño.

Que una determinada unidad, necesite del FormMain para ejecutar un método (y más una unidad que vas a compartir entre varios proyectos) te está indicando que seguramente algo no es correcto (aunque sea "solucionable" tal y como te han dicho).

Si se puede, ese procedimiento al que estás llamado debería estar fuera en una unit aparte, para poder llamarlo con parámetros cuando fuera necesario.

"Imagina que tienes un TEdit(edit1) en un formulario (form1), y al realizar un cambio en el Edit1, necesitamos ocultar otro componente (Edti2) del form1".

Lo que no hacemos en el TEdit es colocar un DEFINE que diga (aunque funcinaría):

Código Delphi [-]
{$IFDEF FORM1}
...
  form1.Edit2.Visible := False;
...  
{$ENDIF}

¿Cómo lo solventamos? Se añade al TEdit un evento OnChange, que captura el formulario que lo necesite.

Creo que en este caso (por lo poco que comentas) una solución un poco más correcta sería una similar.
Define en el segundo form un evento y lánzalo en lugar de la llamada:

Código Delphi [-]

type
 ...
private
  ...
    // Este tipo o con los parámetros que necesites en tu caso
    property OnEvento1:TNotifyEvent read FOnEvento1 write FOnEvento1;
  ...
 
end;


Procedure TForm.acViewAccountExecute(Sender: TObject);
Begin
  Inherited;
{$IFNDEF NOTMAIN}
  If Not dsOutboundList.DataSet.IsEmpty then
    Begin
    
      //  ---FRM_Main.SearchforCust(dbgResults.Cells[4, dbgResults.Row]);
      
      // levantamos el evento si está asignado...
      if Assigned(OnEvento1) then begin
        OnEvento1(Self);
      end;
      
      pRefresh;
    End;
{$ENDIF}
End; // Proc

Desde el Main si es necesario, deberás asignar ese evento para capturarlo.