Исходники и листинги ::: Delphi ::: бегущая строка
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
  unit Unit1;
 
  interface
 
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ExtCtrls;
 
  type
    TForm1 = class(TForm)
      Label1: TLabel;
      Timer1: TTimer;
      procedure FormCreate(Sender: TObject);
      procedure Timer1Timer(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
 
  var
    Form1: TForm1;
 
  implementation
 
  {$R *.dfm}
 
  procedure TForm1.FormCreate(Sender: TObject);
  begin
     Form1.Left:=0;
     Form1.Top:=0;
     Form1.Width:=1024;
     Form1.Height:=160;
     Label1.Left:=0;
     Label1.Top:=0;
     Label1.Width:=1000;
  end;
 
  procedure TForm1.Timer1Timer(Sender: TObject);
  var s: string;
  begin
     s:=Label1.Caption;
     s:=s+s[1];
     delete(s,1,1);
     Label1.Caption:=s;
     
  end;
 
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		бегущая строка
Автор: Sanek_xXx
Город: Казань
 Дата: 19.01.2007  21:58
Комментариев: 1
Просмотров: 348
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: По экрану идет бегущая строка с тем текстом который вы впишите в lable1.caption
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Boland* ::: комментарий от 22.04.2007 | 10:23
Boland Приверженец (ур.6)
Очки: 540
Город: Томск
Тв. работ: 7
Рег: 05.05.2006 (81)
Гениально!!(вру конечно).И что тут сложного?


--------------------
Мысль изречённая,есть ложь.