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

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

Форум программистов > Delphi: WinAPI и системное программирование > Подскажите по WM_NCHITTEST

Автор: BN34 8.9.2015, 01:45

У формы перехватил сообщение https://msdn.microsoft.com/en-us/library/windows/desktop/ms645618%28v=vs.85%29.aspx

Код


procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  {$IFDEF DEBUG}OutputDebugString(PChar(' *** WMNCHitTest ' + IntToStr(GetTickCount) + '*** '));{$ENDIF}
  inherited;
end;

и вижу, что когда курсор находится над формой, то идет непрерывная и бесконечная обработка сообщений WM_NCHITTEST.

Подскажите, это нормально поведение??

Автор: Poseidon 8.9.2015, 08:47

Кажется мне все дело в OutputDebugString. Из-за того, что что-то отправляется отладчику, он либо фокус получает на время, либо еще что-то. Попробуй по другому протестировать. В memo, к примеру, выводить или в файл.