Texto andando no caption do Form

Question

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

Paulo-serra · Answer

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

Ltres · Answer

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;

F�rum Texto andando no caption do Form #213829