Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.30;
Скачать: CL | DM;

Вниз

X (TDxInput)   Найти похожие ветки 

 
Deadlock   (2002-08-04 00:40) [0]

Var
Input : TDxInput;

поле Input.Mouse.X(Y) все время содержит 0!!!, а использовать обработчики из формы(из определенного неудобства) для меня нет смысла...


 
хм   (2002-08-04 02:24) [1]

input.mouse.update писал?
как вариант - использовать винапи getcursorpos


 
Deadlock   (2002-08-04 03:16) [2]

апдейт писал, впустую...


 
хм   (2002-08-04 16:45) [3]

Input.Mouse.X(Y) содержит насколько курсор сдвинулся относительно предыдущего положения. то есть если сдвинул мышку с координаты x=100 на х=90, то то в mouse.x будет 90-100=-10
вот пример:
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
input.mouse.Update;
button1.Top:=button1.top+input.Mouse.y;
button1.left:=button1.left+input.Mouse.x;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.input.Mouse.Enabled:=true;
end;



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.016 c
14-96970
GIL
2003-01-11 07:02
2003.01.30
Протокол РРР


1-96672
Дмитрий Баранов
2003-01-21 13:54
2003.01.30
Генерация уникального идентификатора


1-96767
xyz
2003-01-21 10:10
2003.01.30
Разорвать файл на кусочки!


3-96520
Ag2002
2003-01-14 16:33
2003.01.30
Сортировка


14-97029
cc43294
2003-01-13 17:35
2003.01.30
CЕтка