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

Одна и та же процедура каждые 5 минут   Найти похожие ветки 

← →
Dyusha ©   (2005-03-09 14:04) [0]

Здравствуйте Уважаемые Мастера!!! Может-быть кто сталкивался с такой проблемой. Как можно спровоцировать выполнение процедуры для кнопки, к примеру, Button1 событие OnClick каждые 5 минут

Заранее благодарю за оказанную помощь

---

← →
MU ©   (2005-03-09 14:07) [1]

TTimer?

---

← →
Dyusha ©   (2005-03-09 14:09) [2]

ну это понятно, а какие нибудь другие методы есть............

---

← →
MU ©   (2005-03-09 14:10) [3]

чем плох?

---

← →
Dyusha ©   (2005-03-09 14:14) [4]

а у него сколько максимально интервал идет...........

---

← →
Zeqfreed ©   (2005-03-09 14:16) [5]

Dyusha ©   (09.03.05 14:04)

procedure TForm1.Button1Click(Sender: TObject);
begin
//DoSomething
end;

procedure TForm1.Button2Click(Sender: TObject);
const
Delay = 1000; //ms
var
Last : DWORD;
begin
while Form1.CheckBox1.Checked do begin
 Button1.OnClick(self);

 Last := GetTickCount;
 repeat
  Application.ProcessMessages;
 until (GetTickCount - Last > Delay) or (not Form1.CheckBox1.Checked);
end;
end;

---

← →
Anatoly Podgoretsky ©   (2005-03-09 14:19) [6]

Dyusha ©   (09.03.05 14:14) [4]
Можно sleep, интервал одинаковый, описан в справке по обеим вещам, так что можешь брать любую.

---

← →
Anatoly Podgoretsky ©   (2005-03-09 14:20) [7]

Zeqfreed ©   (09.03.05 14:16) [5]
Зачем же разогревать процессор, он и так горячий.

---

← →
Zeqfreed ©   (2005-03-09 14:24) [8]

Anatoly Podgoretsky ©   (09.03.05 14:20) [7]
Думаю, что пользователь нагреется гораздо больше если будет ждать 5 минут пока получит возможность снять флажок.

---

← →
Anatoly Podgoretsky ©   (2005-03-09 14:26) [9]

Какой, какой флаэок, я что то пропустил в вопросе?

---

← →
Zeqfreed ©   (2005-03-09 14:29) [10]

Anatoly Podgoretsky ©   (09.03.05 14:26) [9]
Я про свою писанину; в общем случае конечно же sleep несравненно лучше моего нетрепетного по отношению к процессору метода.

---

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

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



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