Mover label na tela em tempo de execução

Delphi

13/12/2007

Olá pessoal,

Alguém sabe como fazer a rotina no timer para que o label fique correndo da direita para a esquerda da tela em tempo de execução. Ou seja, enquanto ele processa os dados ele fique com uma mensagem na tela correndo.

Que souber agradeço.

Abraço a todos, Ricardo


Ricardo_ascii

Ricardo_ascii

Curtidas 0

Respostas

Jakefrog

Jakefrog

13/12/2007

No timer vc colocaria:

Label1.Left:= Label1.Left + 10;
Application.ProcessMessages;




o 10 é o valor que vc quer q ele mova por vez! :)


GOSTEI 0
Edilcimar

Edilcimar

13/12/2007

o Top é utilizado para mover verticalmente


GOSTEI 0
Ricardo_ascii

Ricardo_ascii

13/12/2007

No timer vc colocaria: Label1.Left:= Label1.Left + 10; Application.ProcessMessages; o 10 é o valor que vc quer q ele mova por vez! :)


Oi amigão,

Ele fica congelado na tela. Só libera depois que processa.


GOSTEI 0
Jakefrog

Jakefrog

13/12/2007

Ou seja, coloca um

Application.ProcessMessages;

no seu processamento. entre uma função e outra. é esse comando q faz com que os outros comandos na espera no processador sejam executados. como o label mecher! ;)


GOSTEI 0
Ricardo_ascii

Ricardo_ascii

13/12/2007

Ou seja, coloca um Application.ProcessMessages; no seu processamento. entre uma função e outra. é esse comando q faz com que os outros comandos na espera no processador sejam executados. como o label mecher! ;)


Oi Jakefrog,

Obrigado pela atenção mas não deu certo não! Realmente com o application.ProcessMessages ele libera o label na tela, mas ela passa a se movimentar da direita para a esquerda somente depois que acaba a rotina de processamento.

Ricardo


GOSTEI 0
POSTAR