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

[cesar_gta86]

:confused: 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...


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...