[Delphi] Прикольно бегающий текст

Страница 1 из 1 1
Модератор форума: Alowir, Sanoxxx

Mewex	Дата: Понедельник, 10.04.2017, 21:59 \| Сообщение # 1
STEAM SELLER Сообщений: 475 Статус: Offline	Привет // прикольный способ бегающего текста Код на таймер Код procedure TForm1.tmr1Timer(Sender: TObject); var first, s:string; begin s :=Label1.Caption; first :=s[1]; Delete(s, 1, 1); Label1.Caption :=s+first; end; Интервал 100 вроде хорошо смотрится В Label делаем в конце пустую строку с пробелом. Добавлено (10.04.2017, 21:59) --------------------------------------------- Ап

ChesterHelium	Дата: Понедельник, 01.05.2017, 00:29 \| Сообщение # 2
Боец Сообщений: 212 Статус: Offline	лол, в чем суть? данные способы очень хорошо описаны в разных методичках да даже если на киберфорум зайти - там даже такое описано не будет, бо слишком изи имхо Сидим в VK с разных профилей в одном браузере Бесплатно отправляем смс-сообщения Обход подписи в 255 символов на SAMP-RP Способ накрутки личных сообщений в ВК Халявные дедики [DELPHI] - Выключение компьютера по Button'у [DELPHI] - Запрос логина и пароля на форме Делаем убийственные .BAT файлы Скрипт для e-mail рассылки до 100к в сутки Обход авторизации на бесплатных точках WiFi Флэшка - убийца для быстрого сноса винды Расширение для Google Chrome - Бесконечный набор сообщения (Бесконечный карандаш) Заливаем фотографии / смотрим истории в instagram с компьютера Получаем письма с Америки, Канады, Аляски и т.д. с оф. нашивками пожарных