Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Tpopupmenu (https://www.clubdelphi.com/foros/showthread.php?t=9914)

ckaki 05-05-2004 18:33:46

Tpopupmenu
 
Hola a todos. creao un tpopupmenu dinámico en tiempo de ejecución. como puedo hacer para saber el item que clickea el usuario. desde ya mil gracias

roman 05-05-2004 18:39:43

Si estás usando el evento OnClick puedes usar el parámetro Sender:

TMenuItem(Sender).MenuIndex

// Saludos

ckaki 05-05-2004 18:50:09

Hola Roman, no me resulta. yo creo los items del Tpopupmenu de la siguiente forma:

code
it := TMenuItem.Create(self.menu);
it.Caption := string;
it.OnClick := ??
code

no se que escribir en el onclick del item para ssaber cual de ellas fue seleccionada

delphi.com.ar 05-05-2004 18:52:49

Tienes que apuntarlo a un método del tipo TNotifyEvent... (un procedure con sender de parámetro)

roman 05-05-2004 18:56:01

Pero entonces la pregunta no es cómo saber qué ítem se escoge sino cómo asignar el evento OnClick por código.

Puedes definir un método en tu formulario:

Código Delphi [-]
TForm1 = class(TForm)
...
private
  procedure ItemClick(Sender: TObject);
end;

y lo asignas a la propiedad OnClick:

it.OnClick = ItemClick;

Puedes usar el mismo método para todos los ítemes y uasr lo de MenuIndex para distinguir cuál es el ítem.

// Saludos

ckaki 05-05-2004 18:58:31

Ok, ya lo he logrado, gracias a ambos


La franja horaria es GMT +2. Ahora son las 13:41:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi