Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];

Вниз

timer   Найти похожие ветки 

 
exo   (2003-04-22 18:21) [0]

как запустить таймер по нажатию button?


 
Anatoly Podgoretsky   (2003-04-22 18:24) [1]

timer.Enabled := True;


 
Yanis   (2003-04-22 18:27) [2]

Извини exo, но ты уж совсем зелёный.


 
Palladin   (2003-04-22 18:37) [3]


> Anatoly Podgoretsky © (22.04.03 18:24)

Не работает, пишет ошибку
Undeclared identifier: timer"


 
Yanis   (2003-04-22 18:51) [4]

Не timer, а timer1. Чувствуешь разницу?
Вы чё все сговорились или я до конца вопроса не понял.
Таймер запускается так:
Timer1.Enabled:=True;
или
Timer1.enabled:=False;-что бы выключить.


 
Anatoly Podgoretsky   (2003-04-22 19:00) [5]

Не знаю, у меня всегда timer, а не timer1


 
Intell   (2003-04-22 19:37) [6]

Anatoly Podgoretsky, какой у тебя Delphi? Всегда, помнится, был по умолчанию (если первый) Timer1.


 
Anatoly Podgoretsky   (2003-04-22 19:42) [7]

Меня не волнует какой по умолчанию, первое что я делаю, это всегда меняю имя, вне зависимости от версии Дельфи.


 
Yanis   (2003-04-22 19:50) [8]

Видимо Palladin не привык к такой хорошой привычке как Anatoly Podgoretsky менять имя(Name) компонента которое стоит по умолчанию.


 
Anatoly Podgoretsky   (2003-04-22 20:10) [9]

Есть и исключения, для приморов как правило оставляются имена по умолчанию, что бы жтот пример было легко воссоздать.


 
ferrik   (2003-04-22 20:16) [10]

Переключатель timer1.enabled:=not timer1.enabled;
Да так к слову сказано....


 
А   (2003-04-23 04:01) [11]

Удалено модератором


 
Матка   (2003-04-23 05:35) [12]

Бррррррррррр!
Ну народ, базар раздули :))


 
Separator   (2003-04-23 06:53) [13]

Так немного в тему :)

procedure TForm1.Button1Click(Sender: TObject);
var ComponentTimer: TComponent;
begin
ComponentTimer:= FindComponent("Timer1");
if ComponentTimer.ClassName = "TTimer" then
with ComponentTimer as TTimer do begin
Interval:= 5000; //5 секунд
Enabled:= True
end
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage("Сработал " + (Sender as TTimer).Name);
Close
end;


 
Palladin   (2003-04-23 07:10) [14]


> Yanis © (22.04.03 18:51)

:) какие вы интерсные
Ну ребята...
Автор вопроса не я.
Я просто предположил следующий пост автора.
Смайл забыл поставить.



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.006 c
1-34430
Oleg__
2003-04-28 17:07
2003.05.12
WordApplication


1-34431
Brain Force
2003-04-28 18:50
2003.05.12
Помогите с MDI


8-34511
jee
2003-01-31 13:54
2003.05.12
Тоновый набор


11-34380
Delight
2002-07-19 04:14
2003.05.12
bmp.savetofile problem (sorry for english)


1-34432
Zirus
2003-04-28 15:25
2003.05.12
Копирование между imagelist-ами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский