Недавно добавленные исходники
• Animation Loaders 923 • DeLiKaTeS Tetris (Тетрис) 5 869 • TDictionary Custom Sort 7 815 • Fast Watermark Sources 7 489 • 3D Designer 10 724 • Sik Screen Capture 8 041 • Patch Maker 8 249 • Айболит (remote control) 8 300 • ListBox Drag & Drop 7 118 • Доска для игры Реверси 100 854 • Графические эффекты 8 366 • Рисование по маске 7 743 • Перетаскивание изображений 6 343 • Canvas Drawing 6 712 • Рисование Луны 6 646 • Поворот изображения 5 780 • Рисование стержней 4 721 • Paint on Shape 3 428 • Генератор кроссвордов 4 410 • Головоломка Paletto 3 554 • Теорема Монжа об окружностях 4 354 • Пазл Numbrix 2 819 • Заборы и коммивояжеры 3 771 • Игра HIP 2 540 • Игра Go (Го) 2 539 • Симулятор лифта 2 935 • Программа укладки плитки 2 361 • Генератор лабиринта 3 112 • Проверка числового ввода 2 597 • HEX View 3 001

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Прокрутка текста заголовка

var 
  a: string; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  a := 'Look at here !...'; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
var  
  i: Integer; 
begin 
  Application.Title := a; 
  Form1.Caption     := a; 
  for i := 1 to (Length(a) - 1) do 
    a[i] := Application.Title[i + 1]; 
  a[Length(a)] := Application.Title[1]; 
end;