Скачать: CL | DM;

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

← →
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
Благодарю! Заработало!

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c