Главная страница
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.018 c
4-97083
TankMan
2002-12-13 23:56
2003.01.30
Отменить WM сообщение посланное программе....


3-96588
Шевченко Александр
2003-01-10 17:08
2003.01.30
Как создать локальную таблицу DBF или DB компонентами ADO?


3-96517
AlexAlex2
2003-01-14 11:15
2003.01.30
Параметры в запросе в dbExpress и Unkonwn error message 0


6-96912
AlexVit
2002-12-05 06:37
2003.01.30
TNMMSGServ-компонента дает сообщение


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