VPF::Как отловить нажатие на кнопку сворачивания окна?

fedorov2012

Дата 5.1.2013, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.8.2012

Репутация: нет
Всего: нет

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

Присоединённый файл ( Кол-во скачиваний: 11 )

btn.JPG 4,52 Kb

Ne1tr1n0

Дата 7.1.2013, 01:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 120
Регистрация: 1.3.2009

Репутация: 6
Всего: 8

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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.8.2012

Репутация: нет
Всего: нет

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

)

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

Спасибо за ответы, подходит первый вариант (остальные для MDI-приложения не годятся), но и он работает криво.
Описание кривизны ЗДЕСЬ

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »