Como crear menu dinamico para ventanas creadas

[[Crandel]]

Hace un par de días se realizo una pregunta en el foro sobre la creación de menu dinámico, y se explico la forma de resolverlo, buscalo.

[marcoev]

Ya habia visto el codigo que mencionas

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!

[vtdeleon]

Saludos

El evento se asigna aqui:

Código Delphi [-]
 NewItem.OnClick := EventoClick1;

Has un procedimiento OnClickNoseQue(serder:Tobjet); y lo asignas

[marcoev]

muchas gracias por responder, pero la verdad no soy muy diestro en esto de la programacion, y no tengo idea de como hacer eso... disculpen las molestias, pero, alguien tiene un ejemplo?

[[Crandel]]

Si tuviste algún otro problema en la instalación y pudiste resolverlo, por favor comentalo aquí, estoy haciendo una pequeña recompilación de los problemas que tuve para instalar Kylix y que tuvimos en maquinas de amigos para armar un pequeño tutorial.

Gracias

[roman]

Empezado por Crandel

Si tuviste algún otro problema en la instalación y pudiste resolverlo, por favor comentalo aquí, estoy haciendo una pequeña recompilación de los problemas que tuve para instalar Kylix y que tuvimos en maquinas de amigos para armar un pequeño tutorial.

¿No te equivocaste de hilo?

// Saludos