delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Бегущая строка в Delphi 7

Наш опрос

Оцените мой сайт
Всего ответов: 525

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Бегущая строка в Delphi 7.
Для создания понадобятся следующие компоненты:

Label со вкладки Standard
Timer со вкладки System
RadioButton (2 шт)

Меняем у RadioButton1 свойство Caption на Влево
Меняем у RadioButton2 свойство Caption на Вправо
Меняем у Label1 свойство Caption на любое например на www.delphi-lubitel.ucoz.ru

Заходим в обработчик событий onTimer таймера и пишем там:

Между Procedure и Begin

var
txt:string;

После Begin

txt:=label1.Caption;
if radiobutton1.Checked = true then
label1.Caption:=copy(txt,2,length(txt)-1)+copy(txt,1,1);

if radiobutton2.Checked = true then
label1.Caption:=copy(txt,length(txt)-1,1)+copy(txt,1,length(txt)-1);
end;

В итоге должно получиться так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
txt:string;
begin
txt:=label1.Caption;
if radiobutton1.Checked = true then
label1.Caption:=copy(txt,2,length(txt)-1)+copy(txt,1,1);

if radiobutton2.Checked = true then
label1.Caption:=copy(txt,length(txt)-1,1)+copy(txt,1,length(txt)-1);
end;

 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432