Componente En Tiempo De Ejecucion

[grandmasterdari]

Mi codigo de fuente primitivo (porque el programa final es el juego de encerrar al gato, proyecto de la materia gestion de datos -UTN)
juego

codigo de fuente:
http://rapidshare.com/files/102919304/enc_gato.rar.html

captura del programa (al hacer click sobre cualquier imagen esta se hace invisible)


el problema estaba en que yo definia los eventos en la nueva clase creada, cuando en realidad tenia ke definier el evento en el formulario (o en el objeto contenedor, esta vez era el formulario) y despues cuando lo creo en forma dinamica asignar al evento de mi objeto instanciado el evento que he creado en el formulario contenedor

cosas a tener en cuenta.

al crear dinamicamente debo hacer lo siguiente
(temp es mi ojeto creado)
temp->Parent=Form1; //asignar un objeto contenedor, es necesario para que temp pueda verse
temp->OnClick = ImagenClick;//asignacion del evento (gracias keyboy, tu ayuda no solo soluciona los problemas sino suben la moral en el momento de desarrollo, uno no se siente tan solo)

y definir en el formulario contenedor el efento ImagenClick (nombrado a discresion)
en el archivo cabecera de la forma:

	void __fastcall ImagenClick(TObject *Sender); (dentro de __published)

y en el archivo cpp la implementacion

void __fastcall TForm1::ImagenClick(TObject *Sender)
{
	TImage *Aux_Ima = (TImage *)(Sender);
	Aux_Ima->Visible=false;
}

donde necesitamos crear un objeto de la misma clase en forma temporal para poder hacer referencia
al que sender nos envia

la ayuda de keyboy me hizo caer en esta pagina que es la fuente y soluciono el problema porque la verdad que no tenia idea para que servia ese tal "sender"
FUENTE

[waly2k1]

Tengo 65 Labels
y dos botones, uno seleccionar todos y el otro ninguno
como accedo en un for a cada label para cambiar el color?

lblBarcode01.Color := $00549CCD; // todos
lblBarcode01.Color := $00F4F4F4; // Ninguno

Vi otros hilos pero tratan con propiedades dinamicas o valores y no con objetos como en este caso. La solución por el momento fue 130 lineas demás hehe, pero bueh...

Saludos y gracias!

[[Lepe]]

jop

Código Delphi [-]
for i:= 0 to Form1.ComponentCount-1 do
if Component[i] is TLabel then 
with TLabel(component[i]) do
 if todos then
    Color :=  $00549CCD // todos
  else
    Color := $00F4F4F4; // Ninguno

Saludos

[Dedalo]

Yo me hice un componente TTeclado, que es un teclado completo para una aplicacion que hice hace ya varios años. Lo que hice fue crear un array de TButton y unas const que guardaban la posicion, el tamaño y la posicion de las teclas, en tiempo de ejecucion, en el evento OnCreate el propio teclado generaba los botones de las teclas, les asignaba los eventes OnPress, OnMouseenter, etc. Te puedo pasar el componente completo cuando lo encuentre...

[grandmasterdari]

me equivoque de hilo, sory..