Habilitar y deshabilitar submenus o menu de un mainmenu de forma dinámica (código).

[cesar_gta86]

Hola buenos dias amigos, tengo una duda... lo que pasa es que necesito habilitar o deshabilitar submenus de un mainmenu de forma dinámica (con código) y aún no tengo la menor idea de cómo se hace.
Por ejemplo: si necesito consultar los registros de una tabla; la cual está vacía, el submenu debe estar deshabilitado.
Grácias de antemano...

[[maeyanes]]

Hola...

Tienes varias formas de hacer esto...

Una es redefiniendo el método UpdateActions de TForm...

Código Delphi [-]
TForm1 = class(TForm)
  // cortado...
protected
  procedure UpdateActions; override;
end;

implementation

procedure TForm1.UpdateActions;
begin
  Menu1Item1.Enabled := not Table1.IsEmpty;
  Menu1Item2.Enabled := not Table1.IsEmpty
end;

Otra posibilidad sería al insertar o eliminar registros de la tabla usando sus eventos AfterInsert y AfterDelete...


Saludos...