VPF::Задержка... - Форум программистов

Z_P

Дата 20.10.2003, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 4.10.2003
Где: это я?

Репутация: нет
Всего: нет

Цитата

Мой Delphi7 вообще не знает что такое Delay

а ты прописал саму процедуру к Delay?

Dmitry V.Abramov ведь писал:

Код

procedure Delay(ms : longint);
var TheTime : LongInt;
begin
 TheTime := GetTickCount + ms;
 while GetTickCount < TheTime do Application.ProcessMessages;
end;

Monty

Дата 20.10.2003, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Advanced Lamer

Профиль
Группа: Участник Клуба
Сообщений: 3511
Регистрация: 3.4.2003
Где: Гваделупа

Репутация: нет
Всего: 27

Это тоже самое

......... попробовал, тоже самое

--------------------

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

Dmitry V.Abramov

Дата 20.10.2003, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 30.9.2003
Где: Saint-Petersburg

Репутация: 5
Всего: 4

Получается, что силами коллективного разума и папы Борланда был не только отвечен вопрос, но и найдено минимальное-оптимально-рабочее решение. Вот бы всегда бы так...

--------------------

/DVA

neutrino

Дата 22.10.2003, 10:36 (ссылка)

(нет голосов)

Загрузка ...

Gothic soul

Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

Репутация: нет
Всего: 62

Если нужно ждать очень коротикий промежуток времени (<1ms), то поможет пара функций: QuerySystemCounter(), QuerySystemFrequency().

--------------------

The truth comes from within ...

Покойся с миром, Vit

Pakshin A. S.

Дата 22.10.2003, 18:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Пройдёт ли такая штука с таймером?

Код



procedure TForm1.Button1Click(Sender:TObject);
begin
 Form1.Enabled:=False;
 Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled:=False;
 Form1.Enabled:=True;
end;

Monty

Дата 22.10.2003, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Advanced Lamer

Профиль
Группа: Участник Клуба
Сообщений: 3511
Регистрация: 3.4.2003
Где: Гваделупа

Репутация: нет
Всего: 27

Pakshin A. S. да

...... а почему нет? ............ лично я использую таймер там где происходит очень часто опред. событие и чтоб не нагружать процессор таймер включается только когда они пройдут .... так я решил глючность программы ...... но такое замечаю у других

--------------------

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »