Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Ошибка (но в чём ???) 


Русский   (2001-11-12 14:26) [0]

// Ет - оконная процедура
procedure TSystemButton.NewParentWndProc(var message: TMessage);
begin
with message do
begin
Result := CallWindowProc(PrevParentWndProc, ParentForm.Handle, Msg, WParam, LParam);
if Msg = WM_NCLBUTTONDOWN then ShowMessage("");
{ Здесь - окошко не вызывается, т. е. по какой то причине не правильно обрабатывается сообщение WM_NCLBUTTONDOWN
Почему ?}
if (Msg = WM_NCHitTest) and (Result = htCaption) then
if PtInRect(ButtonRect, ParentForm.ScreenToClient(Point(LParamLo, LParamHi))) then Result := SystemButtonMessage;
if (Msg = wm_Close) or (Msg = wm_Destroy) then SeekAndDestroy := True;
end;
end;



GrEG   (2001-11-13 11:30) [1]

Неклиентская область окна - рамка и заголовок. При нажатии левой кнопки мыши именно в этих областях и будет генерироваться сообщение WM_NCLBUTTONDOWN. Если мышь находится за пределами контролируемого окна то это сообщение генерироваться не будет. Для того, чтобы отследить манипуляции с мышью за пределами окна лично я знаю два варианта:
1) захватить мышь (SetCapture или CaptureMouse - не помню точное название функции). Тогда все сообщения от мыши будут передаваться окну как если бы мышь находилась над ним (сообщения WM_MOUSEMOVE, WM_LBUTTONDOWN, WM_LBUTTONUP и т.п.). Сообщения WM_NCXXX генерироваться не будут.
2) Установить ловушку(hook) на мышь и обрабатывать (просматривать) все сообщеения от мыши в системе.
Второй вариант более предпочтителен. Он дает более корректный, на мой взгляд, вариант решения.



GrEG   (2001-11-13 11:33) [2]

А вообще, вопросы нужно более тщательно формулировать. Может я не на тот вопрос и отвечал, который предполагался?




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.028 c
1-57154           Ptr                   2002-02-04 10:53  2002.02.18  
Вызов фенции


7-57232           Zevsus                2001-11-13 00:28  2002.02.18  
Запускаем процесс, идем его завершения или сворачивания и обрабатываем сие событие..


1-57138           KvORubin              2002-02-03 18:39  2002.02.18  
Файл.ТХТ Помогите ПОЖАЛУЙСТО !!!


3-57004           pum5a                 2002-01-24 00:54  2002.02.18  
BLOB и SQL запрос


1-57075           kaif                  2002-02-01 16:52  2002.02.18  
Директива {$DEFINE mmm}