Array TPanel y popup menu

[Neftali [Germán.Estévez]]

Puedes utilizar los eventos OnEnter y OnExit de los paneles para saber en cada momento en qué panel se encuentra el ratón. De igual forma me da la impresión de que con alguno de los eventos del ratón (Down/Up) podrás detectar en qué panel se está desplegando el menú y no tendrás que hacer cálculos con coordenadas.

[VRO]

Efectivamente me explico fatal , pero vosotros lo habeis adivinado, exactamente me refería a eso a saber en que panel del array me encuentro de esa forma poder acceder a lo que pone en el caption.


Gracias a ambos y al resto de personas que me han ayudado tantas veces, probaré vuestras respuestas y os comento.

GRacias

[hermes_32]

Hola VRO,

Empezado por VRO

tengo hecha una función que me puede sevir para calcular el la fila y columna de mi panel

Si esto lo tienes controlado, entonces no veo el problema, ya que puedes hacer:

Código Delphi [-]
  (TuArray[i,j] as TPanel).caption

Y tienes acceso al caption del panel que quieres.

Un saludo.

[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.