Ver Mensaje Individual
  #2  
Antiguo 23-05-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola daragor.
Cita:
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita