Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.20;
Скачать: 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 вся ветка

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.068 c
3-1106251718
neat
2005-01-20 23:08
2005.02.20
SQL - запрос к БД


3-1106666853
Diks
2005-01-25 18:27
2005.02.20
Тригеры


6-1102352885
Anonimus
2004-12-06 20:08
2005.02.20
как скачать страницу


14-1106938821
Cobalt
2005-01-28 22:00
2005.02.20
закачка на FTP


4-1105126143
Лев Ландау
2005-01-07 22:29
2005.02.20
Как можно программно завершить процесс?