Вот я сделал небольшой код для определения относительных координат мышки:

procedure TForm1.Hotykey(var msg:TMessage);
var
P:TPoint;
Rect:TRect;
Wnd:HWND;
begin
if (msg.LParamLo=MOD_ALT) then
case msg.LParamHi of
49:AOLButton1.OnClick(AOLButton1);
.................................
90:begin   //определение относительных координат мышки
   GetCursorPos(P);
   GetWindowRect(WindowFromPoint(P),Rect);
   Edit1.Text:=IntToStr(P.X-Rect.Left)+','+IntToStr(P.Y-Rect.Top);
  end;
end;
end;

Но если я поменяю стиль своей форма во время работы программы на StayOnTop, то этот код не работает. Отменя етого стиля тоже не к чему не приводит.

В чем может быть дело?

А при чём тут форма, если ловите Вы WM_HOTKEY ?

А ScreenToClient(...) нельзя воспользоваться? По-моему проще должно получиться.

Цитата(Song @ 25.11.2002, 13:15)

А при чём тут форма, если ловите Вы WM_HOTKEY ?

Я не знаю при чем тут форма, но данный эффект возникает после изменения стиля формы на StayOnTop