Господа, подскажите, почему мышь не меняет курсор, код:

← →
mmms (2005-01-24 09:58) [0]

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 сек. Хотелось бы что бы мышь была как часы.
Заранее спасибо.

← →
Александр Иванов © (2005-01-24 10:00) [1]

В отладчике проходил? Код выполняется?
И зачем Application.ProcessMessages?

← →
mmms (2005-01-24 10:05) [2]

Так что бы мышь успел подменить :)
Код выполняется, вместо мыши, пишу showmessage(""); выскакивает менюха, без проблем.

← →
Александр Иванов © (2005-01-24 10:09) [3]

Курсор выставляется именно для формы, но не для компонентов, поэтому если мышь над каким-то компонентом, то курсор и имеет стандартный вид.

← →
TohaNik © (2005-01-24 10:11) [4]

Screen.Cursor:=crHourGlass;

← →
mmms (2005-01-24 10:14) [5]

Так да, именно, прямо на форме кнопке. Без Panel и т.п. Все равно не меняет :(

← →
mmms (2005-01-24 10:15) [6]

TohaNik
Благодарю! Заработало!

Господа, подскажите, почему мышь не меняет курсор, код: Найти похожие ветки