Activar/Desactivar Elementos de un TMainMenu

[daragor]

Hola compañeros, necesito que me guien .. como hago para desactivar o activar un elemento determinado de un menu principal en lazarus, estuve buscando pero doy con lo que necesito. Por ejemplo si ocurre una determinada accion .. debo activar un elemento del menu que se encuentra disabled desde el inicio. Creo q se entiende y espero me puedan ayudar... NO se como usar el tema items xq usa una variable integer del componente y no tengo idea cual es el nro. del componente q deseo poner como enabled.

Gracias!!!!

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

[daragor]

claro que me sirvio ecfisa, sobre todo el primero.. entendi que debemos tratar a cada elemento del menu como un menú.. por su nombre. muchas gracias como siempre!