Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c