Как запретить кнопки системного меню окна, `Закрыть`, `Открыть`?

Своим опытом делится Олег Кулабухов:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
{Disable}
Form1.BorderIcons := Form1.BorderIcons -
[biSystemMenu, biMinimize, biMaximize];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{Enable}
Form1.BorderIcons := Form1.BorderIcons +
[biSystemMenu, biMinimize, biMaximize];
end;

[001846]

Содержание раздела