ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от infernal-team

Procedure TForm1.WMGetSysCommand(var Message : TMessage);
Begin
IF (Message.wParam = SC_MINIMIZE) then ShowMessage('Сейчас окно будет свернуто');
Inherited;
End;

это пробывал ошибка пишет =( в чем проблемма?

Когда пишет? Ты вот это сделать не забыл ? :

Код:

type
  TForm1 = class(TForm)
  private
    Procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;