Ver Mensaje Individual
  #3  
Antiguo 02-07-2005
marcoev marcoev is offline
Miembro
 
Registrado: may 2003
Ubicación: Nogales, Sonora, Mex.
Posts: 57
Reputación: 21
marcoev Va por buen camino
Ya habia visto el codigo que mencionas
Cita:
Hola, la idea es ir creando objetos del tipo TMenuItem y modificando sus atributos.

Algo así:


Código Delphi:
var
i: integer;
NewItem: TMenuItem;
begin
MainMenu.Items.Clear;

for i := 1 to 4 do
begin
NewItem := TMenuItem.Create(MainMenu);
MainMenu.Items.Add(NewItem); // no se como se le indica la posición
// exacta, sólo lo hice con PopupMenu
case j of
1: begin
NewItem.Caption := 'aaaa';
NewItem.ImageIndex := 1;
NewItem.OnClick := EventoClick1;
end;
2: begin
NewItem.Caption := 'bbbbb';
NewItem.ImageIndex := 2;
NewItem.OnClick := EventoClick2;
end;
3: begin
NewItem.Caption := 'ccccc';
NewItem.ImageIndex := 3;
NewItem.OnClick := EventoClick3;
end;
4: begin
NewItem.Caption := 'ddddd';
NewItem.ImageIndex := 4;
NewItem.OnClick := EventoClick4;
end;
end;
end;
end;
pero, no veo como manejar los eventos, no me imagino como, un poco mas de ayuda por favor, y que sea mas dinamico, no que se base en un numero determinado de iteraciones, gracias!
__________________
saludos a todos y gracias por compartir sus conocimientos y experiencias... ;-)
Responder Con Cita