Текущий архив: 2016.07.24;
Скачать: CL | DM;

Вниз

WM_MOUSEMOVE для STATIC   Найти похожие ветки 

← →
M.A.   (2014-11-03 23:08) [0]

Здравствуйте.
Как получить координаты мыши только над STATIC"ом со стилем SS_NOTIFY?
Подскажите пожалуйста.
Спасибо.

---

← →
M.A.   (2014-11-04 11:49) [1]

Вопрос снят.

var
 XStat, YStat : Integer;
 hpbPrev   : Pointer;

...

function pbWndProc(Wnd : HWND; Msg, wParam, lParam : Longint) : Longint; stdcall;
begin
 Result := CallWindowProc(hpbPrev, Wnd, Msg, wParam, lParam);
 case Msg of
   WM_MOUSEMOVE : //MessageBox(Wnd, "ProgressBar1Click",   "Click", MB_OK);
   begin
     XStat := LOWORD(lParam);
     YStat := HIWORD(lParam);
     SetWindowText(Form, PChar(IntToStr(XStat) + " " + IntToStr(YStat)));
   end;
 end;
end;

WM_CREATE:
     begin
       StatProg := CreateWindowEx(0, "Static", "111", WS_CHILD or WS_VISIBLE {or SS_LEFT} or SS_NOTIFY, 0, Rect.Bottom - 70, Rect.Right, 20, Forma, StatProgID, HInstance, nil);

       hpbPrev := Pointer(GetWindowLong(StatProg, GWL_WNDPROC));
       SetWindowLong(StatProg, GWL_WNDPROC, Longint(@pbWndProc));
     end;

---

← →
Rouse_ ©   (2014-11-05 20:07) [2]

Что ты такое "забавное" пишешь?

---

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

Текущий архив: 2016.07.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c