Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Одна странность

Автор: Spawn 25.11.2002, 19:35

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

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, то этот код не работает. Отменя етого стиля тоже не к чему не приводит.

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

Автор: Song 25.11.2002, 21:15

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

Автор: podval 25.11.2002, 22:07

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

Автор: Spawn 25.11.2002, 23:13

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

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

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