Ver Mensaje Individual
  #3  
Antiguo 14-02-2013
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 19
Chris Va por buen camino
La solución está en TAction

El nombre de la clase de los items del menú se llama "TMenuItem".

Siempre es recomendado que utilices TMenuItem's asociados a una acción (TAction). Para la solución que te daré necesitas que cada elemento del menú esté asociado a un TAction en particular. Por ejemplo, el item Reservacion1 puede estar asociado a una acción llamada ReservacionAction. En el evento OnUpdate de ReservacionAction utiliza un código similar a este:
Código Delphi [-]
procedure TMainForm.ReservacionActionUpdate(Sender: TObject);
begin
    (Sender as TAction).Enabled := (CampoEstado = 'DES');
end;

Delphi automáticamente se encargará de evaluar la anterior condición cada vez que el menú se muetre. Utiliza un código similar para el resto de acciones.

Saludos!
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita