| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
X (TDxInput) [Delphi]
Deadlock © (2002-08-04 00:40:00)Var
Input : TDxInput;
поле Input.Mouse.X(Y) все время содержит 0!!!, а использовать обработчики из формы(из определенного неудобства) для меня нет смысла...
хм (2002-08-04 16:45:00) [1]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;
Deadlock (2002-08-04 03:16:00) [2]апдейт писал, впустую...
хм (2002-08-04 02:24:00) [3]input.mouse.update писал?
как вариант - использовать винапи getcursorpos
| |
