Проблема с запретом на сворачивание главной формы.

[Stilet]

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:=oga;
end;

procedure TForm1.oga(Sender: TObject);
begin
  WindowState:=wsNormal;
end;

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

[Lifeda92]

Нужно именно изменить системное меню.

[grominfo]

Нужно именно изменить системное меню.

Системное меню меняется только через winapi. Когда писалась Делфи 7, аeро-тем для Windows вроде бы не было.

[Lifeda92]

Сообщение от 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;

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

[grominfo]

Вот ещё примерчик

http://delphiworld.narod.ru/base/cha...stem_menu.html

[Lifeda92]

Сообщение от grominfo

Вот ещё примерчик

http://delphiworld.narod.ru/base/cha...stem_menu.html

Это относится к системному меню формы.

[grominfo]

Это относится к системному меню формы.

Я знаю. Просто мне не совсем понятно, как винда строит системное меню на превью-окнах. Попробуйте поискать дескриптор этого окна, и изменить системное меню в нём.

[Stilet]

Это относится к системному меню

МоньяГГГ )))
Ну накой тебе системное меню, если:
1) Его действия перекроют эти примеры
2) win+D или типа того могут все это дело поХРить
3) Затея с антисворачиванием, извини конечно, глупа и опасна. А хуже всего когда твое окно, которое ты запретил к сворачиванию начинает перекрывать свои же модальные диалоги - вот тогда начинается самое веселье. Поверь мне - вспоминать тебя будут словами нелестными.

[Lifeda92]

Сообщение от Человек_Борща

Ещё вариант:

  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;

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

procedure TForm1.aplctnvnts1Message(var Msg: tagMSG; var Handled: Boolean);
begin
    if (Msg.Message = WM_SYSCOMMAND) then
  begin
    if (Msg.wParam = SC_MINIMIZE) then
      Msg.message := WM_NULL;
  end;
  inherited;
end;

Спасибо работает.