| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Юрик ©   (2006-04-26 08:22:00) 

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

---

Юрик   (2006-04-27 06:48:00) [1]

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

---

balepa   (2006-04-26 11:39:00) [2]

> tsa   (26.04.06 11:27) [7]


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

---

tsa   (2006-04-26 11:27:00) [3]

[5] balepa ©   (26.04.06 10:48)
Ты наверно перевода не знаешь, это же "Привет, Мир"!

---

Gydvin   (2006-04-26 11:18:00) [4]

> balepa ©

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

---

balepa   (2006-04-26 10:48:00) [5]

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


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

---

Gydvin   (2006-04-26 10:45:00) [6]

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


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

---

Hitkliff   (2006-04-26 10:40:00) [7]

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

---

Gydvin   (2006-04-26 09:55:00) [8]

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 08:47:00) [9]

При помощи одной Лабели и таймера!
Вот смотри как я это сделал:
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;

---

Наверх