delphi-lubitel

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

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

Категории раздела

Ваши уроки [5]
Выкладывайте ваши уроки
по Delphi [6]
Статьи по Delphi
по Visual Basic [0]
Статьи по Visual Basic
по SEO [1]
Уроки по SEO (Раскрутка сайта)
по Photoshop [1]
Уроки по фотошопу
по C++ [1]
уроки по C++
по HTML [1]
Уроки HTML
по CSS [1]
Уроки по CSS
Arduino [2]

Наш опрос

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

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » Статьи » Ваши уроки

Мигающий текст (http://vkontakte.ru/gustow)
Сразу говорю у меня странная дельфи например в коде мне нужно писать не label1. а lbl1. //Выложу оба кода=) http://vkontakte.ru/gustow

Итак в первой форме создаем Лэйбл отчищаем caption ставим нужные параметры( размер ,цвет и др.)

Теперь создаём форму 2 ...в ней в 2 лэйбла в одном нужное слово (например "привет") другой пустой.
В первой форме создаём 2 таймера......В первый таймер интервал 2 и код lbl1.Caption:=form2.lbl1.Caption; или label1.Caption:=form2.label1.Caption;
Во второй таймер интервал 1 и код lbl1.Caption:=form2.lbl2.Caption; или label1.Caption:=form2.label2.Caption;
Проверьте что-бы у таймеров Enabled был поставлен на True......
Готово!!!!!!! 

Работы по Photoshop Delphi и сделаю меню вам в группу вконтакте http://vkontakte.ru/gustow

Чтобы скачать нажмите "Перейти" "Пропустить рекламу"


Источник: http://Источник это я!!!!
Категория: Ваши уроки | Добавил: Mr-Freeman (01.10.2011) | Автор: Владимир E W
Просмотров: 2006 | Комментарии: 3 | Рейтинг: 0.0/0
Всего комментариев: 2
2 КтоТОтам  
0
можно куда проще на таймер обработчике событий вот код
procedure TForm1.tmr1Timer(Sender: TObject);
begin
lbl1.Visible:=not(lbl1.Visible);
end;

1 Mr-Freeman  
0
Кстати заместо того что в другой форме можно просо написать
в первый lbl1.Caption:='Привет' или label1.Caption:='Привет'
во второй lbl1.Caption:=' ' или label1.Caption:=' '

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432