Текущий архив: 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