Topic: Бегущая строка
Всем доброго вечера!
Интересно, а можно ли организовать в нашей замечательной программе - бегущую строку?
Например, внизу, на футере ползет какой-нибудь Хелп или поздравление всех с днем программиста... ))
My Visual Database → Russian → Бегущая строка
Всем доброго вечера!
Интересно, а можно ли организовать в нашей замечательной программе - бегущую строку?
Например, внизу, на футере ползет какой-нибудь Хелп или поздравление всех с днем программиста... ))
Как вариант, можно поместить внизу формы компонент надпись и по таймеру менять её положение по горизонтали.
Вот мой пример реализации бегущей строки.
В версии 1.46 должен работать.
Здорово) Спасибо за труды! Пригодится обязательно)
кстати такой вопрос, если будет 2 лейбела, получается нужно и 2 переменные вводить
кстати такой вопрос, если будет 2 лейбела, получается нужно и 2 переменные вводить
Пока можно только один "заставить бегать". Думаю, как сделать, чтобы несколько работало.
П.С. Нет. В принципе заставить несколько лейблов "бегать" не проблема, но тогда нужно будет не одной процедурой делать, а расписывать на несколько. А хочется автоматизировать процесс.
mitrich45 wrote:кстати такой вопрос, если будет 2 лейбела, получается нужно и 2 переменные вводить
Пока можно только один "заставить бегать". Думаю, как сделать, чтобы несколько работало.
П.С. Нет. В принципе заставить несколько лейблов "бегать" не проблема, но тогда нужно будет не одной процедурой делать, а расписывать на несколько. А хочется автоматизировать процесс.
Ну может Дмитрий со временем сделает новый компонент)
alex842 - Спасибо большое!
Мне кажется надо в вашем примере добавить деактивацию таймера при закрытии главной формы :
procedure Form1_OnClose (Sender: string; Action: string);
begin
Timer.Free;
end;
Данная бегущая строка - работает отлично, но текст берется из Label (Caption).
А можно ли сделать такую же строку, но чтобы текст для бегущей строки брался из текстовых полей или мемо-полей какой-нибудь таблицы? В версии 1.46 в Label можно забить только 1 текст и ограниченного размера. А хотелось, чтобы бегущая строка была любого размера и разными текстами.
Возможно ли такое в 1.46 версии?
zoomix
Можно,вы можете воспользоваться командой SQLExecute для получения текста любого поля в БД, затем присвоить его в Label.Caption
Ок, спасибо, а можно шаблон такой команды с присвоением в Label.Caption глянуть?
Form1.Label.Caption := SQLExecute('SELECT textfield FROM tablename WHERE id=5');
id=5 написал для примера.
Спасибо!!!!
My Visual Database → Russian → Бегущая строка
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi