|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как вернуть true если мышь активная
как вернуть true если мышь активная, т.е. сделала какое-то движение, вне зависимости где она находится, в области приложения, либо же за ёё пределами?
|
#2
|
|||
|
|||
ну примерно так наверное
запоминаешь координаты,и таймеров проверяем если они изменились то твоё условие. Код:
var Form1: TForm1; P:Tpoint; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); var P2: TPoint; begin GetCursorPos(P2); If (P.x=P2.x)and (P.y=P2.Y) then else Caption:='Позиция изменилась'; P:=P2; end; procedure TForm1.FormCreate(Sender: TObject); begin GetCursorPos(P); end; Последний раз редактировалось Snake22, 11.09.2011 в 16:29. |
#3
|
|||
|
|||
а если последний раз мышку двигали полгода назад должно трю вернуться?
|