Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
15-1442698201
Юрий
2015-09-20 00:30
2016.07.24
С днем рождения ! 20 сентября 2015 воскресенье


15-1447710719
GanibalLector
2015-11-17 00:51
2016.07.24
Portmon только для Ethernet а


15-1441149908
Юрий Зотов
2015-09-02 02:25
2016.07.24
Наиважнейшая проблема...


15-1444728307
Юрий Зотов
2015-10-13 12:25
2016.07.24
java XPath


2-1414391990
JohnKorsh
2014-10-27 10:39
2016.07.24
Включение в программу номера версии.