WM_SysCommand Предотвращение перемещения окна в delphi

Question

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

procedure TForm1.WMSysCommand; 
begin 
    if (Msg.CmdType = SC_MINIMIZE) then 
    begin 
    form1.Hide; 
    show1.Checked :=false; 
    hide1.Checked :=true; 
    end; 
    if (Msg.CmdType = SC_CLOSE) then form1.Close; 
end; 

я должен был поместить захват в для кнопки закрытия тоже, как этот код предотвращала закрытие программы с помощью кнопки закрытия. Мне нужна помощь в том, как исправить перетаскивание окна программы с помощью панели заголовка, которая перестала работать с этим кодом.

Answer 1

Если переопределить обработку сообщения Windows, вам нужно позаботиться, чтобы либо обрабатывать все возможные случаи, или вызвать унаследованный код для всех необработанных случаев:

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); 
begin 
    if (Msg.CmdType = SC_MINIMIZE) then 
    begin 
    Hide; 
    show1.Checked := False; 
    hide1.Checked := True; 
    Msg.Result := 0; 
    exit; 
    end; 
    inherited; 
end;