Label e Formulario(Timer)

Question

Gostaria de saber como fa�o para um label sair da ponta do formulario e chegar no centro desse, tipo:Cena1:                                                                                             ...

Ericksasse · Answer

No OnTimer, vc pode ir incrementando a propriedade Left do Label:[code:1:66f06633b5]Label1.Left := Label1.Left + 1;[/code:1:66f06633b5]Varie o tempo do Timer.Interval para mexer na velocidade....

Gollum · Answer

Na cena 2 o label1, teria que estar no centro e parado.grato pela ajuda......

Ericksasse · Answer

Quando o Left chegar no n�mero que vc quer, desabilite o timer....

Gollum · Answer

procedure TForm1.Timer1Timer(Sender: TObject);
var
intposicao,intlargura : integer;
begin
intposicao:= Label1.left;
intlargura:= Label1.Width;
dec(intposicao,20);

if(Label1.left <= 245)then
exit;
Label1.Left:=intposicao;

end;

fiz este codigo.
S� que quando ele chega no numero 245, ele para mas n�o fica invisivel.
tentei a instru��o label1.visible:=false;
mas n�o funciona corretamente.
grato pela ajuda.

Ericksasse · Answer

Voc� quer parar na posi��o 245? No OnTimer:[code:1:4f7c36a311]Label1.Left := Label1.Left + 1;Timer1.Enabled := Label1.Left < 245;[/code:1:4f7c36a311]...

Gollum · Answer

Ericksasse, obrigado pelas explica�oes.Mas agora eu queria incluir outro label e timer.para fazer a opera��o oposta de:da esquerda para direita e chegando no centro.fiz o codigo mas o segundo n�o roda.utilizei o mesmo principio do 1�.tem como fazer?grato....

F�rum Label e Formulario(Timer) #284930