Asignar Evento OnClick en forma dinamica en tiempo de ejecucion

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