[VRO]

¡¡¡ Yaaaaaaa está !!!!!, no problem, pensando lo que dijo Neftalí que en el evento OnMouseDown/Up puedo acceder directamente al caption sín necesidad de hallar las coordenadas, estuve pensando e investigando y lo encontré, para gente puede ser una chorrada encontrar estop que mucha gente ya sabrá, pero yo no lo sabía quizas porque soy un poco cenutria ó porque todavía me quedan muchas cosas que aprender de Delphi y demás. Bueno sin animo de enrrolarme mucho lo que hecho de esta forma:

Código Delphi [-]
 
procedure TMenugeneral.mouse(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if Button=mbRight then
    begin
        if (sender is TPanel) then
         begin
          codreserva:=(TPanel(sender).Caption);
          pos_i:=IntToStr((TPanel(sender).top));
          pos_j:=IntToStr((Tpanel(sender).left));
         end;
    end;
end;

Cuando creo los TPanel del array ,le asigno al evento OnMouseDown la llamada a la función mouse que he pasado de la siguiente forma:

Código Delphi [-]
  p[i,j].onmousedown:=mouse;

Enla función mouse hallo el caption del TPanel en el que he pulsado el botón derecho para asignarle el popupmenu.

Bueno, pongo el código ya que creo que mi deber es poner como lo he hayado para que otro inexperto como yo ó empanado le sirva de ayuda, ya que es de lo que se trata en este foro.


Muchas gracias a todos y buena tarde.