Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как отловить нажатие на кнопку сворачивания окна?

Автор: fedorov2012 5.1.2013, 17:12

Скажите, пожалуйста, а как отловить нажатие на кнопку сворачивания окна?

Автор: Ne1tr1n0 7.1.2013, 01:59

1. Обрабатывать сообщение WM_SYSCOMMAND. Например как-нить так:

Код


type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; // <--
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  case Msg.CmdType of
    SC_MINIMIZE:
      begin
        ShowMessage('SC_MINIMIZE');  // <-- вместо этого нужные действия
      end;
  else
    inherited;
  end;
end;

2. В обработчике FormResize проверять WindowState формы на равенство wsMinimized:

Код


procedure TForm1.FormResize(Sender: TObject);
begin
if WindowState = wsMinimized then
  ShowMessage('SC_MINIMIZE');  // <-- вместо этого нужные действия
end;

3. Если в приложении форма одна, то можно подсесть на событие Application.OnMinimize. Например так:

Код


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
       procedure MinimizeHandler(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MinimizeHandler(Sender: TObject);
begin
  ShowMessage('SC_MINIMIZE');  // <-- вместо этого нужные действия
end;

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

Или можно кинуть на форму TApplicationEvents, и в нем уже назначить обработчик события OnMinimize:

Код


procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  ShowMessage('SC_MINIMIZE');  // <-- вместо этого нужные действия
end;

На ваш выбор smile

Автор: fedorov2012 8.1.2013, 00:27

Цитата(Ne1tr1n0 @ 7.1.2013, 01:59

)

1. Обрабатывать сообщение WM_SYSCOMMAND. Например как-нить так:

Спасибо за ответы, подходит первый вариант (остальные для MDI-приложения не годятся), но и он работает криво.
Описание кривизны http://forum.sources.ru/index.php?showtopic=370464&st=0&#entry3258143