Pasar como parametro un objeto 'calculado'

[[gluglu]]

Hola compañeros,

Como puedo pasar como parámetro un objeto que depende de una variable que corresponde a una posicion pulsada con el Intro ? .

Me explico : Quiero hacer algo así como

Código Delphi [-]
Aux_Pos := ((Pos_Line-1)*6)+Pos_Column;
LabelDblClick(FindComponent('Label'+IntToStr(Aux_Pos)) as TLabel);

pero al parecer esto no me funciona.

He consultado la ayuda de Delphi y entiendo que FindComponent me devuelve como valor un componente que a la vez lo debería poder pasar como TObject a una nueva función, no ?

Gracias por vuestra ayuda.

Saludos a todos.

[nemesio]

Yo creo que en primer lugar explicaras para que piensas utilizar lo que estas intentando hacer. El Objeto Sender te podría servir para lo que quieres hacer.

Saludos.

[[Lepe]]

Tienes que ir por partes:
- Primero buscar con FindComponent.
- Si lo encuentra, pasarlo a la rutina que quieras, si no, controlar el error

Código Delphi [-]
var LabelFound:TComponent;
begin
Aux_Pos := ((Pos_Line-1)*6)+Pos_Column;
LabelFound := FindComponent('Label'+IntToStr(Aux_Pos));
if LabelFound <>nil  then // se ha encontrado
  LabelDblClick(TLabel(LabelFound));

Ahora en la función LabelDblClick puedes usar algo así:

Código Delphi [-]
with TLabel(Sender) do
begin

end;

Siempre y cuando te asegures que LabelDblClick siempre va a recibir un TLabel.

Saludos