Ver Mensaje Individual
  #1  
Antiguo 09-05-2007
Avatar de anubis
anubis anubis is offline
Miembro
 
Registrado: mar 2007
Posts: 863
Reputación: 20
anubis Va por buen camino
problema envio de label

Buenas.
Tengo bastantes componentes tipo label en el form, todos hacen lo mismo, los label son numeros diferentes.
101, 120...
tienen como label 101,102, y como name tienen Lh101,Lh102..

cuando pulso sobre un numero, me devuelve el valor del label en funcion del numero pulsado. Estoy usando un metodo que me comentasteis para recoger ese numero
Código Delphi [-]
procedure Tfentrada.lh101Click(Sender: TObject);

begin
      // Acceder al label
  lbl := TLabel(Sender);
  // Acceder al pabel relacionado con ese label
     ha:=strtoint(lbl.caption);
como va asignado a un este solo procedure la cosa va fenomenal porque al pulsar sobre cualquier label me devuelve lo que yo quiero.

El problema es que quiero hacerlo al reves, sobre un numero que yo le de, queria que se posicionara en el label correspondiente para que hiciera algo con ese label, pero no se como hacerlo al reves del ejemplo.
He probado a asignar
tlabel(sender):=lbl;
lbl.name:='Lh'+numero;
pero en name me produce error;

alguna sugerencia?

gracias
Responder Con Cita