Главная страница
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.017 c
1-96826
Kurt_
2003-01-20 19:34
2003.01.30
Люди, подскажите как отследить нажатие функциональнх клавиш типа


1-96756
turonix
2003-01-22 16:31
2003.01.30
Как визуализировать графики функций в Delphy?


4-97106
RAA
2002-12-13 23:40
2003.01.30
Как сделать форму что-бы размер программы был минимальным?


6-96901
Whippi
2002-12-03 16:53
2003.01.30
Как получить информацию с web страницы?


6-96940
Eugenex
2002-12-02 11:37
2003.01.30
Страничка Свойства хоста?