Как сделать бегущую строку???

← →
Юрик (2006-04-26 08:22) [0]

Как сделать бегущую строку при помощи чего???

← →
Hitkliff © (2006-04-26 08:47) [1]

При помощи одной Лабели и таймера!
Вот смотри как я это сделал:
var
t:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
t:=0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if t>550 then t:=0;
t:=t+1;
Label3.Left:=t-100;
end;

← →
Gydvin © (2006-04-26 09:55) [2]

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; s:string; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin timer1.Interval:=500; label1.AutoSize:=false; canvas.Font:=label1.Font; s:="Hello World!!! "; label1.Width:=canvas.TextWidth(s); timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); var s1:string; begin s1:=copy(s,1,1); delete(s,1,1); s:=s+s1; label1.Caption:=s; end; end.

← →
Hitkliff © (2006-04-26 10:40) [3]

мой вариант короче!

← →
Gydvin © (2006-04-26 10:45) [4]

> Hitkliff © (26.04.06 10:40) [3]

А мой круче ))))) можно еще круче

← →
balepa © (2006-04-26 10:48) [5]

> Gydvin © (26.04.06 10:45) [4]

Только вместо "Hello, world" можно было бы что нибудь по красивее придумать, а то у меня эта надпись вызывает отвращение :)

← →
Gydvin © (2006-04-26 11:18) [6]

> balepa ©

Что перевое в голову взбрело :)

← →
tsa (2006-04-26 11:27) [7]

> tsa (26.04.06 11:27) [7]

Тупая фраза (имеется ввиду "Привет, Мир")

← →
Юрик (2006-04-27 06:48) [9]

Всем рахмет сделал!!!

Как сделать бегущую строку??? Найти похожие ветки