| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

А как создать процесс?

MisterBin ©   (2002-05-09 18:37:00) 

У меня программа блокирует курсор функцией Sleep(), но при этом и сама не отвечает. Можно ли как то это избежать, чтобы блокировался только курсор. Если можно пример

---

Anatoly Podgoretsky   (2002-05-10 17:51:00) [1]

For I := 1 to Maxint do For j := 1 to Maxint

---

Olgerd   (2002-05-10 17:14:00) [2]

procedure TForm1.FormCreate(Sender: TObject);
begin
ShowCursor(False);
end;

---

MisterBin   (2002-05-10 15:29:00) [3]

А какие? Можно пример?

---

Manulo   (2002-05-10 15:13:00) [4]

> С какох пор Sleep используется для блокировки курсора?
>
> попробуй использовать ClipCursor

ZZ Полностью согласен.... Кроме того есть немеряно других путей заблокировать курсор

---

Mystic   (2002-05-09 19:11:00) [5]

Путей собственно два

1) Создать собственный поток File -> New -> Thread (или почитать об объекте TThread)

2) Разбить большое ожидание на ряд мелких, вызывая время от времени ProcessMessages:

const SleepTime = 20;

Duration := 0;
repeat
Sleep(SleepTime);
ProcessMessages;
Duration := Duration + SleepTime;
until Duration > 1000;

---

ZZ   (2002-05-09 19:09:00) [6]

С какох пор Sleep используется для блокировки курсора?

попробуй использовать ClipCursor

---

Наверх