Обработчик события для смещения указателя мыши по окну программы...

[vedro-compota]

ВСем доброго времени суток )) Приветствую. )
Скажите пожалуйста, каким образом можно "привязать" программу к перемещению указателя мыши с прижатой левой кнопкой (всё той же мыши) по экрану ? кто знает ?
ЗАранее благодарю ))

[DIgorevich]

Нужно объявить процедуру в частных объявлениям (после ключевого слова Private):

private
  { Private declarations }
  procedure WMNCHitTest (var M: TWMNCHitTest); message wm_NCHitTest;

В области implementation описываем процедуру так:

implementation
{$R *.DFM}

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then 
    M.Result := htCaption;
end;

Мы выдаём клиентскую область окна за заголовочную область.

Пример взят из DelphiWorld

[vedro-compota]

Спасибо )) а можно ссылочку на этот раздел волда ? чтобы по-подробнее ))

[Kotofff]

http://delphiworld.narod.ru/base/wm_nchittest2.html

Еще:

begin
  ReleaseCapture;
  Form1.Perform(WM_SysCommand,$F012,0);
end;

Пишем ЭТО в обработчик MouseDown того компонента за который хотим таскать форму ...

[vedro-compota]

Пишем ЭТО в обработчик MouseDown того компонента за который хотим таскать форму ...

мне не совсем это нужно ))
Хочу узнать как можно , например , заставить колесо крутиться вправо при смешении "прижатой мышки вправо" (в режиме реального времени) то есть если X при смещении растёт- крутись вправо, а если уменьшается- то влево )) как быть? (как крутить колесо я знаю, уже кучу тем создал здесь узнавая это ) 0)))
подскажите, кто знает ))

[vedro-compota]

"вращать фигуру мышкой"

[DomiNick]

Ну..... Для начала что имелось ввиду под "к перемещению указателя мыши по экрану"? Это на форме (окне) или как?

А так просто обрабатывать MouseMove этого окна нужным образом.....

[Vikenty]

Колесо мыши?

[vedro-compota]

смещение указателя по форме . это мне почти тоже самое нужно , что и "перетаскивание мышью" , только я не перетаскивать буду, а вращать объект вокруг своей собственной оси. ))