Как узнать принадлежит ли кнопка Системному меню программы?

[FaTaL]

Вообщем мне нужна такая конструкция

If Sender = Кнопкa системного меню окна (Свернуть, Развернут или Закрыть) то
.......
иначе
......

Заранее благодарен за ответ.

З.Ы. Процедура OnCloseQuery

[Пепел Феникса]

помоему это событие наступает при нажатии на кнопку закрыть.

[JTG]

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure WMSYSCOMMAND(var msg: TMessage); message WM_SYSCOMMAND;

...

procedure TForm1.WMSYSCOMMAND(var msg: TMessage);
begin
  case msg.wParam of
    SC_CLOSE    : ShowMessage('Close');
    SC_MAXIMIZE : ShowMessage('Maximize');
    SC_MINIMIZE : ShowMessage('Minimize');
    SC_RESTORE  : ShowMessage('Restore');
  end;
  inherited;
end;

[FaTaL]

Ругается на эту процедуру в разделе type. Может что нить в Uses добавить надо?

[Пепел Феникса]

как ругается?

[JTG]

вот это добавить в обьявление формы, лучше после private

procedure WMSYSCOMMAND(var msg: TMessage); message WM_SYSCOMMAND;

вот это - после implementation

procedure TForm1.WMSYSCOMMAND(var msg: TMessage);
begin
  case msg.wParam of
    SC_CLOSE    : ShowMessage('Close');
    SC_MAXIMIZE : ShowMessage('Maximize');
    SC_MINIMIZE : ShowMessage('Minimize');
    SC_RESTORE  : ShowMessage('Restore');
  end;
  inherited;
end;

[FaTaL]

Сделал так:

procedure TAboutForm.WMSYSCOMMAND(var msg: TMessage);
begin
  case msg.wParam of
    SC_CLOSE    : CloseFlag :=true;
  else
    CloseFlag := false;
  end;
  inherited;
end;

Где CloseFlag булевая переменная. Потом процедура

procedure TAboutForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if CloseFlag then
    begin
    CanClose := False;
    AboutForm.Hide;
    end else
    CanClose := true;
end;

В этой процедуре должно проверяться, если прога закрывается с кнопки окна закрыть, то прога должна просто спрятаться, а если с другой отдельной кнопки, то должна закрыться, но закрытие не происходит никак. Т.е. вопрос состоит в том, чтобы прога закрывалась либо по моей кнопке, либо когда винда завершает работу и посылает всем программам запрос на закрытие.

[DeKot]

А может проще в Инспекторе для формы выставить - BorderIcons - biSystemMenu:= false. И системная кнопка недоступна (правда есть палочка-выручалочка, которая и в вашем случае присутствует Alt+F4).

[FaTaL]

Это не подходит. Надо чтобы кнопка закрыть была видна и работала как описано в моём посте выше.

[raxp]

столько сложностей, вместо того чтобы вывести кнопку в виде картинки и свой капшон