Определить координаты мыши по HWND панели.

[Вадим Буренков]

У меня есть Handle панели, и по нему нужно определить где мышь находится (в системе координат панели). То есть нужен аналог
OnMouseMove, который возвращает координаты X и Y положения мыши. Помогите пожалуйста.

[raxp]

для блокнота делал так...

procedure TForm1.Timer1Timer(Sender: TObject);
var t: tpoint;
    h: hwnd;
begin
 GetCursorPos(t);
 h:= FindWindowEx(FindWindow('notepad', nil), 0, 'Edit', nil);
 if h<>0 then begin
  windows.ScreenToClient(h, t);
  caption:= format('x=%d  y=%d',[t.x,t.y])
 end
end;

вместо блокнота hwnd вашей панели.

[Вадим Буренков]

Я пытался так:

GetCursorPos(TempMouse);
ScreenToClient(HandleWindow, TempMouse);

но GetCursorPos напрягает систему (у меня 2D подвисает). Есть ли другой способ получить координату мыши?
Upd не, это у меня глюки . Пошел разбираться.......