Activar/Desactivar Elementos de un TMainMenu

[ecfisa]

Hola daragor.

como hago para desactivar o activar un elemento determinado de un menu principal en lazarus

La forma más simple es desde el propio TMenuItem, por ejemplo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  MenuItem2.Enabled := False;
end;

// O de otro modo:
procedure TForm1.Button2Click(Sender: TObject);
var
  aName : string;
begin
  aName := 'MenuItem2';
  TMenuItem(FindComponent(aName)).Enabled:= False;
end;

También podes acceder desplazándote por la propiedad Items del TMenuItem, por ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: Integer;
begin
  for i:= 0 to MainMenu1.Items.Count-1 do
     for j:= 0 to MainMenu1.Items[i].Count-1 do
       MainMenu1.Items[i].Items[j].Enabled := False;  
end;

Espero haber entendido lo que buscabas.

Saludos.