Сообщество Чайников

Вопрос

Как на Delphi3 можно:

1. Сделать так, чтобы когда программа выполняет длительную операцию, пользователь не мог ничего нажать на форме? И даже после окончания этой операции, если он куда-то там во время ее выполнения кликал, ничего не произошло?

2. И как сделать, извините за глупый вопрос, чтобы во время этой длительной операции курсор принял форму песочных часов? Присвоение значения Cursor формы не дает ничего, а присваивать значение Cursor каждого компонента — …

Ответ

1. Можно сделать так:

begin
Form1.Enabled:=false;
//Здесь выполняется длительная работа…
Form1.Enabled:=true;
end;

2. Сам с этим когда-то повозился :)
Screen.Cursor:=crHourGlass;

Из конференции Expert_FAQ