Si no hay otra solucion podriamos tomar la que coloque al principio, me sigue pareciendo razonable
Aunque ahora que lo pienso podriamos hacer esto
Cita:
if Parent.FindComponent('txOrigen') is TEdit then
Caption := Parent.FindComponent('txOrigen').Text;
if FInvertir then
Caption:= Copy(Caption,Length(Caption),1) + Copy(Caption,1,Length(Caption)-1)
else
Caption:= Copy(Caption,2,MAXINT) + Copy(Caption,1,1);
|
esto lo qe hace es que toma un edit llamado txOrigen que se encuentre en el mismo parent de la etiqueta y lo pasa al caption
Noi es lo ideal pero deberia funcionar