Como saber cuando se hace click sobre uno de los 120 Tpanel

[droguerman]

puedes asignar un mismo evento a todos los paneles y usar la propiedad tag para saber que panel fue el que pulsaste algo así:

Código Delphi [-]
procedure TPanel_Click(sender : TObject);
var
  nro : integer;
begin
  nro := TPanel(sender).tag;
end;

[DarkMan]

Puedes usar el parámetro sender para acceder al panel sobre el que se hace el click. Todos los paneles pueden tener asociado el mismo evento:

Código Delphi [-]
 
Procedure TPanelclick( Sender: TObject );
begin
 (Sender as TPanel).Caption := 'Seleccionado';
end;

Os agradezco a los dos vuestra ayuda, gracias a ello he podido continuar con lo que estoy programando.

Un saludo y muchas gracias de nuevo.

Lo que voy a hacer es lo siguiente:

// con esto se el nombre del Tpanel sobre el que se ha hecho click
textop := (Sender As Tpanel).Name;

Le quito al contenido de 'textop' la palabra 'Panel' ya que cada Tpanel se llama Panel1, Panel2, ect. con lo que sólo me quedará el número del Tpanel seleccionado, que irá desde el 1 al 120.

Una vez tengo el número del Tpanel selccionado, podré saber la columna y la fila en la que está en la ficha, ya que he puesto 12 Tpanel por fila y tengo 10 filas.

Gracias.

- por si hay curiosidad por saber de qué va la historia:
Hace varios años me propuse crear un programa para jugar a las 4 en raya contra el ordenador, con la salvedad de que el ordenador no sabrá casi nada cuando haga la primera partida y tendrá que ir aprendiendo conforme vaya juando. La idea creo que es demasiado ambiciosa, sobre todo porque no tengo tiempo ni de rascarme, pero me he propuesto los fines de semana dedicarle unas horas, y así hasta que lo termine. No tiene fecha de término de momento.

[[Lepe]]

Ya que te has explicado mejor, te recomiendo usar Frames, es como si crearas un panel pero con las propiedades que tu quieras, en este caso, puedes añadirle dos propiedades Fila y columna, de esa forma no tienes que hacer virguerías para averiguarlo, solo tienes que consultar esas 2 propiedades (que obviamente habrás asignado cuando creas el frame).

Como ejemplo didáctico, este calendario con frames dinámico

En lugar de 120 paneles, tendrás 120 frames.

Saludos

[ContraVeneno]

Empezado por Nebli

Lo que voy a hacer es lo siguiente:

// con esto se el nombre del Tpanel sobre el que se ha hecho click
textop := (Sender As Tpanel).Name;

Le quito al contenido de 'textop' la palabra 'Panel' ya que cada Tpanel se llama Panel1, Panel2, ect. con lo que sólo me quedará el número del Tpanel seleccionado, que irá desde el 1 al 120.

¿para que tanto relajo con editar el nombre, quitarle el inicio, convertir el final a entero, etc, etc, cuando puedes utilizar la propiedad TAG como te recomendaron al principio?

Número := (Sender As Tpanel).Tag;

[[gatosoft]]

Hola a todos...

Estaba pensando que tan correcto era manejar 120 paneles o frames en una pantalla... es obvio que la situación amerita que existan, pero cual de los dos es mas eficiente en cuanto al manejo de memoria...

Podríamos decir que las maquinas de hoy lo aguantan todo... pero ese es un pensamiento muy "Gates"... Consumir todos los recursos porque para eso hay suficiente....

Que tal por ejemplo un TSahpe ? cual consume mas recursos? como medirlo?

Que tal una Grilla?

Por que 120 TButons? (jejejeje)

Que tal dibujar la cuadricula en el canvas del form y (con mas codigo) evaluar las posiciones del raton y sus eventos...?

Lo digo por que yo he tenido que enfrentar esta situacion mas de una vez y siempre me queda la inquietud de si he utilizado la mejor estrategia....

Por comodidad he termindao usando un TStringrid para manejar este tipo de situaciones (mientras se pueda)...

Saludos,

[ContraVeneno]

lo mismo dije una vez cuando alguien estaba utilizando creo eran 130 TEdits en un solo formulario... lo que dije fue: "Cuando utilizas más de 20 controles del mismo en un solo formulario, entonces tienes un problema muy grande de diseño..."

pero creo que mi comentario les molestó o algo, por eso ya no lo quise volver a decir...

en fin, 120 paneles para mi es un problema muy grande de diseño.