Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Вниз

Перетаскивание формы за контрол на winapi   Найти похожие ветки 

 
Альберт ©   (2007-01-04 03:43) [0]

как этьо сделать?

поставить хук.
ждать WM_NCHITTEST.
и отправлять окну SendMessageм  (Wnd, WM_NCHITTEST, HTCAPTION, 0).

но не выходит...


 
Альберт ©   (2007-01-05 22:22) [1]

в окне флешка стоит, и за нее пытаюсь переместить окно.. и ни фига. вообще это возможно сделать?


 
Eraser ©   (2007-01-06 17:27) [2]

> [0] Альберт ©   (04.01.07 03:43)

никаких хуков не надо!
достаточно просто обрабатывать в OnMouseDown нужного контрола выполнять код
const
 SC_DragMove = $F012; {a magic number}
begin
 ReleaseCapture;
 Perform(WM_SysCommand, SC_DragMove, 0);


 
Альберт ©   (2007-01-06 21:33) [3]

спасибо, но я именно через dll делаю.. другого выбора нет.. нужно ловить именно чужие определенные окна.. не свою форму..


 
Альберт ©   (2007-01-06 22:35) [4]

придумал решение

if TMsg(Pointer(lParam)^).message =  WM_LBUTTONDOWN then
   begin
   ReleaseCapture;
   SendMessage(GlobalData^.detectwnd, WM_NCLBUTTONDOWN, htCaption, 0) ;

   end;



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

Форум: "WinAPI";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.04 c
15-1179846139
Andy BitOff
2007-05-22 19:02
2007.06.17
20.05.2007 умерла Тётя Валя


15-1179715384
Slider007
2007-05-21 06:43
2007.06.17
С днем рождения ! 19 мая


15-1179657003
Bogdan1024
2007-05-20 14:30
2007.06.17
Счёт за сайт


2-1180095658
Zed
2007-05-25 16:20
2007.06.17
Paradox, Microsoft Access… ???


2-1180049862
delphino
2007-05-25 03:37
2007.06.17
DISTINCT





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский