Deshabilitar Items de un PopUp

[rotsen26]

Buenas tardres amigos, tengo un problema...
Les comento:
Tengo que deshabilitar algunos items de un popup según sea el estado haciendo una consulta de una tabla según el estatus... Si pueden ayudarme con eso se lo agradecería mucho!!!
Estos son los item del menú
CheckIn1
AgregarMovimiento1
AgregarMedicamento1
Cobrar1
Reservacion1

Cuando el estatus esté en DES Solo Reservacion1 aparesca habilitada...

Cuando el estatus esté en RES se deshabilite Reservacion1....

Cuando el estatus esté en OCU se deshabilite CheckIn1 y Reservación...

Se le agradece la ayuda!!!

[[Al González]]

Si CheckIn1, AgregarMovimiento1... son los elementos TMenuItem, tan sólo tienes que cambiar su propiedad Enabled según corresponda.

Código Delphi [-]
If CampoEstado = ... Then
Begin
  CheckIn1.Enabled := True;
  ...
End
Else
Begin
  CheckIn1.Enabled := False;
  ...
End;

Si tienes navegación en el conjunto de datos, el evento apropiado para hacer esto podría ser OnDataChange del objeto TDataSource.

Espero te sirva.

Saludos.

Al González.

[[Chris]]

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!