Ver Mensaje Individual
  #5  
Antiguo 01-10-2003
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Reputación: 27
__cadetill Va por buen camino
si vas a Project-Options y la pestaña Directories/Conditionals, verás que hay una entrada de texto que pone Conditionals defines. Es aquí donde deberías de poner lo que te propone delphi.com.ar, es decir, la palabra DEMO y, luego, desde código, controlar como comenta delphi.com.ar el define

Si creo un proyecto nuevo y, en el OnShow del formulario pongo esto

Código:
procedure TForm1.FormShow(Sender: TObject);
begin
  {$IFDEF DEMO}
  showmessage('demo');
  {$ENDIF}
  showmessage('hola');
end;
Si esta puesta la palabra DEMO en Conditionals defines, saltarán los dos mensajes, en cambio, si no está puesta, sólo saltará el segundo mensaje

Espero te sirva
Responder Con Cita