![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Код:
procedure TForm1.Timer1Timer(Sender: TObject); var foo: TPoint; begin if GetKeyState(VK_LBUTTON) <> 0 then begin timer1.Enabled:=false; GetCursorPos(foo); while GetKeyState(VK_LBUTTON) <> 0 do begin SetCursorPos(foo.X,foo.Y); end; timer1.Enabled:=true; end; end; таймер 10 мс, по идее должно пока нажата мышка возвращаться в положение, но почему то происходит зацикливание |
#2
|
||||
|
||||
![]() Такое чувство что он не сразу задает код и после отжатия она остается якобы нажатой
|
#3
|
||||
|
||||
![]() читай Return Values у GetKeyState.
Код:
if (GetKeyState(VK_LBUTTON) and $80000000)>0 then Label1.Caption:='down' else Label1.Caption:='up'; Пишу программы за еду. __________________ |