Hola
Gracias.
Ahora lo que falta es hacer que el label empiece a la derecha, como implementamos esto:
Cita:
function Alinea(S: String; N: Integer): String;
begin
while Length(S) < N do
Insert(' ',S,Length(S)+1);
Result:=S
end;
|
en trucomania, ejemplo de llamada:
Cita:
|
Label1.Caption:=Alinea('hola',10);
|
Esto con el fin de que empiece desde la derecha como un anuncio, bueno algo asi.
Saludos