| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Одна и та же процедура каждые 5 минут [D6, D7]
Dyusha © (2005-03-09 14:04:00)Здравствуйте Уважаемые Мастера!!! Может-быть кто сталкивался с такой проблемой. Как можно спровоцировать выполнение процедуры для кнопки, к примеру, Button1 событие OnClick каждые 5 минут
Заранее благодарю за оказанную помощь
Zeqfreed (2005-03-09 14:29:00) [1]Anatoly Podgoretsky © (09.03.05 14:26) [9]
Я про свою писанину; в общем случае конечно же sleep несравненно лучше моего нетрепетного по отношению к процессору метода.
Anatoly Podgoretsky (2005-03-09 14:26:00) [2]Какой, какой флаэок, я что то пропустил в вопросе?
Zeqfreed (2005-03-09 14:24:00) [3]Anatoly Podgoretsky © (09.03.05 14:20) [7]
Думаю, что пользователь нагреется гораздо больше если будет ждать 5 минут пока получит возможность снять флажок.
Anatoly Podgoretsky (2005-03-09 14:20:00) [4]Zeqfreed © (09.03.05 14:16) [5]
Зачем же разогревать процессор, он и так горячий.
Anatoly Podgoretsky (2005-03-09 14:19:00) [5]Dyusha © (09.03.05 14:14) [4]
Можно sleep, интервал одинаковый, описан в справке по обеим вещам, так что можешь брать любую.
Zeqfreed (2005-03-09 14:16:00) [6]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;
Dyusha (2005-03-09 14:14:00) [7]а у него сколько максимально интервал идет...........
MU (2005-03-09 14:10:00) [8]чем плох?
Dyusha (2005-03-09 14:09:00) [9]ну это понятно, а какие нибудь другие методы есть............
MU (2005-03-09 14:07:00) [10]TTimer?
| |
