Ver Mensaje Individual
  #2  
Antiguo 07-03-2013
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Asocia el PopupMenu a cada componente Image. En el evento OnClick del item que uses para borrar pones algo como esto:

Código Delphi [-]
procedure TForm1.Borrar1Click(Sender: TObject);
begin
  if PopupMenu1.PopupComponent is TImage then
    PopupMenu1.PopupComponent.Free;
end;

// Saludos
Responder Con Cita