Texto andando no caption do Form

Delphi

13/02/2004

Bem Gostaria que um nome ´andasse´ no caption do Form Prinmcipal...
O Codigo que eu coloquei é este...
procedure TFormPrincipal.Timer1Timer(Sender: TObject);
Var
A : String;
Fim : Boolean;
Letra : integer;
begin

If (Letra = Length(A)+1) Then
Begin
Letra := 0;
End
Else
Begin
A:= ´Fabio´;
FormPrincipal.caption:=Copy(A,Letra+1,Letra+1);
inc(Letra);
End;

A Varialvel letra .. na incremente... nao sei pq....!!!!!


se puderem me ajudar agradeço


Pantoja

Pantoja

Curtidas 0

Respostas

Paulo-serra

Paulo-serra

13/02/2004

Voce deve declarar a variável Letra como sendo privada na Unit em vez de declará-la no evento OnTimer, pois se continuar assim, sempre que o sistema executar o OnTimer a variável será criada. E como voce deve saber, sempre que o delphi cria uma variável inteira, pode ser que ela venha com ´sujeira´, ou seja, com algum valor esquisito. Ex: Letra pode vir como um valor 123455

E é por isso que voce declará-la como privada e dizer que ela recebe 0 no evento OnCreate do Form.

Isso para começar :D, pois acho que para sua rotina funcionar, ela deverá mudar algumas ´coisinhas´.

Paulo Serra


GOSTEI 0
Ltres

Ltres

13/02/2004

Se a ideia é fazer algo do tipo q tem no winamp ai tem um exemplo
const
  Mess: string = ´ ** Teste de Mensagem ** ´;

var
  pMess: integer;
  lgMess: integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lgMess := Length(Mess);
  pMess  := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Application.Title := Copy(Mess, pMess, lgMess-pMess) +
                       LeftStr(Mess, pMess+1);
  Inc(pMess);
  if not(pMess < lgMess) then pMess := 0;
end;



GOSTEI 0
POSTAR