Главная страница
    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.45 MB
Время: 0.052 c
3-1106215748
}|{yk
2005-01-20 13:09
2005.02.20
Траблы с запросом


1-1107433666
mikeee
2005-02-03 15:27
2005.02.20
можноли работать с текстовым файлом как с Tstrings?


3-1106404347
sloug
2005-01-22 17:32
2005.02.20
есть код программы


4-1100806177
Anis
2004-11-18 22:29
2005.02.20
shut down,restart windows for ws XP,NT


3-1106599767
Urvin
2005-01-24 23:49
2005.02.20
Фаербирд





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский