Texto Vivo ...

Delphi

31/08/2003

Caros Colegas estou tentando fazer com que um texto fique passando em um pannel do componente StatusBar (pra ser preciso Pannel 2 do Status Bar1).
Tipo queria fazer como o descansso de tela do Windows (Letreiro digital). Se alguem souber por favor me ajude.


Zaba

Zaba

Curtidas 0

Respostas

Cdaraujo

Cdaraujo

31/08/2003

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.


Caros Colegas estou tentando fazer com que um texto fique passando em um pannel do componente StatusBar (pra ser preciso Pannel 2 do Status Bar1). Tipo queria fazer como o descansso de tela do Windows (Letreiro digital). Se alguem souber por favor me ajude.



GOSTEI 0
POSTAR