Asignar Evento OnClick en forma dinamica en tiempo de ejecucion

[[cHackAll]]

Lo que hace es "pasar" el "click" al panel que contiene el TStaticText que ha generado el evento.

Para hacer lo que tu llamas asignacion dinamica debes considerar lo comentado en mi primer post (el que has ignorado).

PD; para ver si es lo que realmente necesitas, te aconsejo probarlo!

Suerte

[delphi50jmb]

ChackAll, Agradesco tus comentarios, efectivamente debido a la ansiedad por resolver el problema me salte el primer tips que escribiste. Lo probe y funciono de maravillas, genial.

el codigo ahora quedo mas o menos asi.

TStaticText( Components[a] ).Font.Style := [];
TStaticText( Components[a] ).OnClick := AsignaOnClick(copy( UpperCase(TStaticText(Components[a]).Name), 7, 2 ));


function TFMapa1024x768.AsignaOnClick(Indice: string): TNotifyEvent;
begin
case StrToInt(Indice) of
1: Result := Panel1Click;
2: Result := Panel2Click;
3: Result := Panel3Click;
4: Result := Panel4Click;
5: Result := Panel5Click;
6: Result := Panel6Click;
//...
end;

Claro esta, debere poner 80 case, pero ya es lo de menos. Con tu sencillo pero claro ejemplo e logrado asignar en forma dinamica todos los eventos OnClick de los TStatickText al evento manejado por el Panel.

Fuistes de gran ayuda, Genial.

Saludos

Jose Miguel B.