Своим опытом делится Олег Кулабухов:
Смотрим пример. Необходимо учитывать возможность разворачивания окна по двойному щелчку мыши на заголовке окна и т.п., подбирая соответствующий тип окна.
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]