Форум: "Основная";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
ВнизКак сделать таймер из Label Найти похожие ветки
← →
Korvet (2005-07-25 10:02) [0]Нужно что бы через каждую секунду Caption Lebel`a увеличивался на одну цифру.Было 0 стало 1, было 1 стало 2 и т.д.
← →
Алхимик © (2005-07-25 10:04) [1]TTimer
← →
Korvet (2005-07-25 10:07) [2]Ну что в таймере писать нужно это я и не сомнивался, а вот что написать этого я уже не знаю!
← →
Алхимик © (2005-07-25 10:09) [3]Lebel.Tag := Lebel.Tag + 1;
Lebel.caption := IntToStr(Lebel.Tag);
← →
имя (2005-07-25 10:11) [4]Удалено модератором
← →
Korvet (2005-07-25 10:19) [5]Спасибо тебе Алхимик!
← →
msguns © (2005-07-25 10:26) [6]>Алхимик © (25.07.05 10:09) [3]
+ Label.invalidate
← →
Korvet (2005-07-25 10:32) [7]А вот не можите ещё подсказать почему этот код не работает.
if label1.Caption=Label2.Caption then
label3.Caption:="ура";
P.S.Только не смейтесь я просто в Delphi новичок и только только его начал изучать
← →
Digitman © (2005-07-25 10:35) [8]
> почему этот код не работает
что значит "не работает" ?
← →
Алхимик © (2005-07-25 10:37) [9]
> [7] Korvet (25.07.05 10:32)
А что ожидаешь от кода?
Программы - они самые злые враги программиста, делают не то что задумано, а то что написано.
← →
Korvet (2005-07-25 10:50) [10]Ну мне нужно.Если текст из лабела равен тексту из второга лабела то в з лабеле былв надпись !ура!
← →
Lexer © (2005-07-25 10:53) [11]Korvet, а как ты думаешь, почему в третьем Label не пишет "Ура"?
← →
Digitman © (2005-07-25 10:53) [12]
> Если текст из лабела равен тексту из второга лабела
значит "текст из лабела" не равен "тексту из второга лабела"
← →
alex_*** (2005-07-25 10:56) [13]либо обновление лабела не происходит
← →
msguns © (2005-07-25 10:57) [14]Не обязательно. 3-й лабел может просто не перерисоваться
← →
Алхимик © (2005-07-25 10:59) [15]Автору:
Скачай какой нить учебник и прочитай - жить станет лучше и веселее.
← →
Korvet (2005-07-25 11:00) [16]Блин, не сказал что не так.В 3-ем лабеле всегда пишится ура, даже тогда когда тексты разные
← →
Korvet (2005-07-25 11:01) [17]Я скачаю, но не сегодня.
← →
Lexer © (2005-07-25 11:01) [18]
if label1.Caption=Label2.Caption then
label3.Caption:="ура" else label3.Caption:="Не ура";
← →
Digitman © (2005-07-25 11:03) [19]
> Korvet (25.07.05 11:00) [16]
значит после then у тебя стоит точка с запятой
← →
Плохиш © (2005-07-25 11:03) [20]
> Korvet (25.07.05 11:00) [16]
:-) Почему-то я так и подумал.
Значит тексты одинаковые или ищи, где между then и label3 точку с запятой поставил.
← →
msguns © (2005-07-25 11:04) [21]>Korvet (25.07.05 11:00) [16]
>Блин, не сказал что не так.В 3-ем лабеле всегда пишится ура, даже тогда когда тексты разные
Боюсь, учебник тут не поможет. С логикой неладушки ;)))
← →
Плохиш © (2005-07-25 11:04) [22]
> Lexer © (25.07.05 11:01) [18]
:-) Это тоже ещё один вариант
← →
Korvet (2005-07-25 11:10) [23]нет точку с запятой я там не ставил
← →
Плохиш © (2005-07-25 11:12) [24]тоды, дадим Lexer значёк телепата ;-)
← →
Lexer © (2005-07-25 11:13) [25]> Плохиш © (25.07.05 11:12) [24]
> тоды, дадим Lexer значёк телепата ;-)
спасиб, такого у меня еще небыло :)
← →
Digitman © (2005-07-25 11:16) [26]
> Korvet (25.07.05 11:10) [23]
> точку с запятой я там не ставил
значит в дизайн-тайм в Инспекторе объектов очисть (сделай пустым) значение св-ва Caption компонента Label3
← →
msguns © (2005-07-25 11:21) [27]>Digitman © (25.07.05 11:16) [26]
>значит в дизайн-тайм в Инспекторе объектов очисть (сделай пустым) значение св-ва Caption компонента Label3
И после каждого сравнения Application.Terminate и запускай снова
;))
← →
Vasian © (2005-07-27 17:31) [28]
> Korvet
> А вот не можите ещё подсказать почему этот код не работает.
> if label1.Caption=Label2.Caption then
> label3.Caption:="ура";
А не пробовал, перед приведенным кодом сначала задать значения
Caption" ов лейблов
← →
Duk_ (2005-07-27 23:05) [29]Если тебе нужно сделать курсовую или что-то в этом роде (так как на серьезную вещь это не тянет) то найди людей которые этим занимаются. Дай возможность заработать другим и облегчи себе жизнь.
← →
Джо © (2005-07-27 23:09) [30]
> [29] Duk_ (27.07.05 23:05)
Зачем подталкивать человека совершать неэтичный поступок? Курсовой НУЖНО писать самому.
← →
Duk_ (2005-07-27 23:14) [31]Мне кажется если человек не знает элементарщины, то стоило бы задуматься над тем чтоб купить какую-то толковую книгу, а не ждать готового решения. Так как на этих основах строится все дальнейшее восприятие и понимание предмета.
← →
Джо © (2005-07-27 23:23) [32]
> [31] Duk_ (27.07.05 23:14)
Именно. А не заказывать курсовой за деньги :)
← →
Duk_ (2005-07-27 23:40) [33]Тут ему напишут и прийдется компилировать, а так уже все готово :-]
← →
anti256 (2005-08-04 13:36) [34]Да ладно, что вы на человека накинулись? Сами-то какими были по первой? Я, например, когда начинал изучать Delphi, делал такие ошибки и задавал такие вопросы, что сейчас даже вспоминать стыдно. А так вы ему только весь интерес отобъете.
← →
Джо © (2005-08-04 14:32) [35]
> [34] anti256 (04.08.05 13:36)
Если этот "интерес" так легко "отбить" - то туда ему и дорога...
Естественный отбор, панимаишь :0)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
Память: 0.51 MB
Время: 0.042 c