Текущий архив: 2002.11.11;
Скачать: CL | DM;

Вниз

Таймер на WinApi, вместо стандартоного Timer1   Найти похожие ветки 

← →
Vasechkin ©   (2002-10-01 07:41) [0]

Как сделать таймер на WinApi, вместо стандартоного Timer1.

---

← →
DSa   (2002-10-01 07:46) [1]

Думаю можно так:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage("Start Test");
Delay(2000);
ShowMessage("End Test");
end;

---

← →
MBo ©   (2002-10-01 08:21) [2]

cм. SetTimer и TimeSetEvent

---

← →
[n\a]   (2002-10-02 04:29) [3]

и еще WM_TIMER

---

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

Текущий архив: 2002.11.11;
Скачать: CL | DM;

Наверх

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