Como puedo hacer con un popumenu...?

[Hayton]

Hola a todos.

Mi consulta es la siguiente: tengo un formulario con varias imagenes, las cuales tiene un popupmenu (todas el mismo). Lo que quiero hacer es que al pulsar la opcion eliminar del popup, se elimine la imagen.

Mi problema es que cuando intento realizar el procedimiento de eliminacion de la imagen, no se en que parametro del popup esta la imagen que lo ha llamado. Necesitaria eso, saber que imagen a llamado el procedimiento eliminar del popup.

Saludos.

[[Chris]]

El componente TPopupMenu tiene un evento que se llama OnPopup. Ese evento incluye un parámetro que se llama Sender. Sino me equivoco, el parámetro Sender es el que te indicaría que imagen ha llamado al PopupMenu. Guardas la referencia en una variable y luego al ejecutar el procedimiento eliminar, utilizas la variable para determinar cuál es la imagen que tendrás que eliminar.

Saludos,
Chris

[[Caral]]

Hola
Aqui tienes un ejemplo sencillo.

Código Delphi [-]
var
  Form1: TForm1;
  imagen: integer;
implementation

{$R *.dfm}

procedure TForm1.Image1Click(Sender: TObject);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  imagen:= 1;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
   PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  imagen:= 2;
end;

procedure TForm1.eliminar1Click(Sender: TObject);
begin
  if imagen = 1 then
  image1.Visible:= False;
  if imagen = 2 then
  image2.Visible:= False;
end;

procedure TForm1.eliminarycolocar1Click(Sender: TObject);
begin
  if imagen = 1 then
  image1.Picture:= image3.Picture;
  if imagen = 2 then
  image2.Picture:= image3.Picture;
end;

Saludos

[Hayton]

Hola, en el evento onpopup el sender es un tpopupmenu que entre una de sus propiedades hay una que es popupcomponent que te devuelve el componente que llamo al menu, que es lo que queria.

Muchas gracias a todos.