Label e Formulario(Timer)

Delphi

16/06/2005

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


label1

-------------------------------------------------------------------------------------
Cena2:


label1


Eu tentei usar o Timer e acabei me perdendo.
grato pela ajuda.


Gollum

Gollum

Curtidas 0

Respostas

Ericksasse

Ericksasse

16/06/2005

No OnTimer, vc pode ir incrementando a propriedade Left do Label:

Label1.Left := Label1.Left + 1;


Varie o tempo do Timer.Interval para mexer na velocidade.


GOSTEI 0
Gollum

Gollum

16/06/2005

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


GOSTEI 0
Ericksasse

Ericksasse

16/06/2005

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


GOSTEI 0
Gollum

Gollum

16/06/2005

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.


GOSTEI 0
Ericksasse

Ericksasse

16/06/2005

Você quer parar na posição 245? No OnTimer:

Label1.Left := Label1.Left + 1;
Timer1.Enabled := Label1.Left < 245;



GOSTEI 0
Gollum

Gollum

16/06/2005

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.


GOSTEI 0
POSTAR