|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.03.2009, 21:36 | #11 |
Пользователь
Регистрация: 04.03.2009
Сообщений: 62
|
Всем большое спасибо, изменил я по вашим советам, работает. Большое спасибо. А еще такой вопрос. Я меняю свойство Interval в таймере, а почему то длительность смены строк на форме не меняется. Думал что кажется, но нет, довел вроде как до максимума, но все равно.
Последний раз редактировалось Fataller; 27.03.2009 в 21:39. |
27.03.2009, 22:45 | #12 |
Пользователь
Регистрация: 04.03.2009
Сообщений: 62
|
По поводу таймера - стояло 1000 по умолчанию, затем поставил 100000 - разницы нет. Может быть сделать, чтобы через раз менялись строки?
Последний раз редактировалось mihali4; 18.11.2010 в 11:44. |
27.03.2009, 23:57 | #13 |
Пользователь
Регистрация: 04.03.2009
Сообщений: 62
|
procedure TForm4.Timer1Timer(Sender: TObject);
begin Rand_of_str(mass_of_dates,numb_of_s tr); end; procedure Rand_of_str(mass_of_dates:array of string; numb_of_str:integer); var i:integer; length_str:integer; begin i:=Random(numb_of_str); length_str:=Form3.Canvas.TextWidth( mass_of_dates[i]); Form3.Width:=length_str; Form3.Left:=Screen.Width-Form3.Width; Form3.Label1.Caption:=mass_of_dates[i]; end; Вот так. Randomize() в обработчике создания формы. По моему строчки меняются одинаково, ну на глаз нет разницы. Последний раз редактировалось Fataller; 28.03.2009 в 00:00. |
28.03.2009, 10:51 | #14 |
Пользователь
Регистрация: 04.03.2009
Сообщений: 62
|
А в обработчике таймера что прописать?
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TСhart, клик мыши и координаты XY, Определение координат оси при клике мыши | Aravild | Компоненты Delphi | 1 | 31.01.2009 16:28 |
при запуске Internet Explorer внизу на пол-экрана выскакивает панель | irenaspb | Безопасность, Шифрование | 3 | 09.11.2008 20:48 |
Обновление заданной области экрана при нажатии клавиши | Jack Torrance | Win Api | 3 | 26.05.2008 10:57 |
как сделать так что при изменении разрешения экрана программа работала... | Victor[famas] | Общие вопросы Delphi | 7 | 13.02.2008 12:48 |
Координаты мышки НЕ относительно формы | Nowichok | Общие вопросы Delphi | 2 | 27.02.2007 17:03 |