Запретить сворачивание главной формы

Posted by Chas under Delphi

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

grominfo
У меня работает так:
в oncreate

bordericons:=[biSystemMenu,biMaximize];

Stilet
могу посоветовать кинуть на форму компонент TApplication, и в его событии OnMinimize прописать WindowState:=wsNormal;
Или так:

procedure TForm1.FormCreate(Sender: TObject);

begin

  Application.OnMinimize:=oga;

end;

procedure TForm1.oga(Sender: TObject);

begin

  WindowState:=wsNormal;

end;

Что равноценно.

Человек_Борща
Ещё вариант:

  private

    { Private declarations }

  public

    { Public declarations }

    //Ставим фильтр оконных сообщений

    procedure WMMsgFilter(var aMsg: TMessage); message WM_SYSCOMMAND;

  end;

var

  Form2: TForm2;
implementation
{$R *.dfm}

{ TForm2 }
procedure TForm2.WMMsgFilter(var aMsg: TMessage);

begin

  if (aMsg.Msg = WM_SYSCOMMAND) then // Если 100600% это оно

  begin

    if (aMsg.WParam = SC_MINIMIZE) then // И окно минимизируется

      aMsg.Msg := WM_NULL;              // Заменим код сообщения на NULL

  end;

  inherited; // Отправим сообщение дальше

end;

Кнопка окна, пункты в контекстном меню — работать не будут.

тема на форуме

Похожие статьи

• Cвернуть всё кроме моей формы
• Проблемы со сворачиванием форм
• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Handle окна по файлу EXE
• Вопрос по message
• При нажатии кнопки открыть сайт
• Получить время через интернет
• Сеть на ассемблере: проблема
• Получить иконку файла
• Как узнать пользовательскую директорию