Скачать: CL | DM;

Событие движения мыши по окну, в том числе по контролам на ней   Найти похожие ветки 

← →
Aldor_   (2005-02-01 21:42) [0]

Form.OnMouseMove по понятным причинам не вызывается если на форме есть другие контролы и мышь над ними.
В голову пришел только один способ осуществления сабжа: отлов WM_NCHITTEST.


procedure OnNCHitTest(var Msg: TMessage); message WM_NCHITTEST;

...

procedure TForm1.OnNCHitTest(var Msg: TMessage);
var
 Point: TPoint;
begin
 Point.X := Msg.lParam and $0000FFFF;
 Point.Y := Msg.lParam shr 16;
 Point := ScreenToClient(Point);
 //Do smth...
 Msg.Result := DefWindowProc(Handle, Msg.Msg, Msg.WParam, msg.LParam);
end;


 Корректно ли это? Можно ли сделать тоже самое только средствами  Delphi, не затрагивая WinAPI?

---

← →
Aldor_   (2005-02-01 23:44) [1]

Сорри, не в тот форум. Перенесите, пожалуйста.

---

← →
Чапаев ©   (2005-02-02 10:02) [2]

SetCapture()?

---

← →
Aldor_   (2005-02-02 21:51) [3]

Дык все-равно ведь API. Может есть сто-нить типа TForm.MousePreview: Boolean.

---

← →
Aldor_   (2005-02-03 11:42) [4]

Up

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.112 c