Fórum Texto Vivo ... #178753

Caro amigo,
Veja um exemplo que fiz!!!

Atenciosamente,

Daniel Araújo

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
StatusBar1: TStatusBar;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
var
Texto : String;
begin
Texto := StatusBar1.Panels[0].Text;
StatusBar1.Panels[0].Text := Copy(Texto,2,Length(Texto))+Texto[1];
end;

end.