Форум: "Система";
Текущий архив: 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;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c