| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Господа, подскажите, почему мышь не меняет курсор, код:
mmms © (2005-01-24 09:58:00)
procedure TForm1.q1BeforeOpen(DataSet: TDataSet);
begin
Form1.Cursor:=crHourGlass;
Application.ProcessMessages;
end;
procedure TForm1.q1AfterOpen(DataSet: TDataSet);
begin
Form1.Cursor:=crDefault;
Application.ProcessMessages;
end;
Записей не много, 15000, выбирается 2-3 сек. Хотелось бы что бы мышь была как часы.
Заранее спасибо.
mmms (2005-01-24 10:15:00) [1]TohaNik
Благодарю! Заработало!
mmms (2005-01-24 10:14:00) [2]Так да, именно, прямо на форме кнопке. Без Panel и т.п. Все равно не меняет :(
TohaNik (2005-01-24 10:11:00) [3]Screen.Cursor:=crHourGlass;
Александр Иванов (2005-01-24 10:09:00) [4]Курсор выставляется именно для формы, но не для компонентов, поэтому если мышь над каким-то компонентом, то курсор и имеет стандартный вид.
mmms (2005-01-24 10:05:00) [5]Так что бы мышь успел подменить :)
Код выполняется, вместо мыши, пишу showmessage(''); выскакивает менюха, без проблем.
Александр Иванов (2005-01-24 10:00:00) [6]В отладчике проходил? Код выполняется?
И зачем Application.ProcessMessages?
| |
