Как узнать, на сколько пикселей переместился холст при выполнении WM_VSCROLL - PullRequest
0 голосов
/ 19 июня 2020

если я выполню:

procedure TForm1.btn3Click(Sender: TObject);
begin
//  SendMessage(treeView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
//  SendMessage(treeView1.Handle, WM_VSCROLL, SB_LINEUP, 0);
//  SendMessage(treeView1.Handle, WM_HSCROLL, SB_LINERIGHT, 0);
  SendMessage(treeView1.Handle, WM_HSCROLL, SB_LINELEFT, 0);

end;

как я узнаю, на сколько пикселей переместился холст / дисплей?

Я пытаюсь заново изобрести колесо перетаскивания мышью, чтобы автоматизировать горизонтальная и вертикальная прокрутки. Я пытаюсь использовать mimi c карты Google при перетаскивании (учитывая, что TTreeView имеет полосы прокрутки). Решение, над которым я работаю, заключается в том, что я создал поток, который будет время от времени проверять состояние ключа VK_LBUTTON и положения мыши.

...