VPF::проверить развернута ли форма на весь экран

AleksandraN

Дата 13.1.2011, 13:46 (ссылка)

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

Загрузка ...

Шустрый

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

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

Доброго времени суток!

Проблема следующая... Мне необходимо вызывать некую функцию при изменении размера формы. я навешиваю вызов этой процедуры на Метод OnResize. При этом мне нужно проверить, является ли эта форма развернутой на весь экран.
Я проверяю в OnResize так:

If WindowState = wsMaximized then...else....

Проблема в следующем, если я нажимаю кнопку - развернуть на весь экран, то сначала вызывается OnResize, а потом уже присваивается WindowState := wsMaximized... а мне нужно как-то отловить как-топроцесс разворачивания...

Заранее спасибо)

Snowy

Дата 13.1.2011, 14:19 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Можно обработать вручную.

Код

  private
    MaxWin: Boolean; // флажок распахнутости
    procedure WMCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

  // .....

procedure TForm1.WMCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType = SC_MAXIMIZE then MaxWin := true;
  if Message.CmdType = SC_RESTORE then MaxWin := false;
  inherited;
end;

  // .....

procedure TForm1.FormResize(Sender: TObject);
begin
  if MaxWin then ShowMessage('Я большой!')
  else ShowMessage('Я маленький');
end;

AleksandraN

Дата 13.1.2011, 14:33 (ссылка)

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

Загрузка ...

Шустрый

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

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

спасибо огромное smile

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