Как создать обработчик события при нажатии на кнопки Развернуть во весь экран - Восстановить?

14.03.2011, 11:52. **Показов** 4258. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Народ, Хелп! Как написать или создать в Delphi событие при нажатии на эту пару кнопок? Везде юзал, ничего не нашел. Есть для 'Развернуть-Свернуть', а для этих нет

Помогите, plz!!!

@nero_wolfe · 14.03.2011, 13:56

Отлавливать сообщение WM_SIZE:
В wParam указывается тип изменения размера окна. Может быть:
SIZE_MAXHIDE,SIZE_MAXIMIZED,SIZE_MAXSHOW,SIZE_MINIMIZED,SIZE_RESTORED.
В младших 2 байтах lParam указывается ширина окна, в старших 2 байтах высота окна.

Delphi

type
    TForm1 = class(TForm)
        procedure OnWmSize(var Message : TMessage); message WM_SIZE;
     // ...
 
implementation
 
procedure TForm1.OnWmSize(var Message : TMessage);
begin
    inherited;
    case Message.WParam of
        SIZE_MAXIMIZED:
            ShowMessage('Окно развернуто');
        SIZE_MINIMIZED:
            ShowMessage('Окно свернуто');
        SIZE_RESTORED:
            ShowMessage('Окно восстановлено');
    end;
end;

Dammit
		1
	Как создать обработчик события при нажатии на кнопки Развернуть во весь экран - Восстановить? 14.03.2011, 11:52. Показов 4258. Ответов 1 Метки нет (Все метки) Народ, Хелп! Как написать или создать в Delphi событие при нажатии на эту пару кнопок? Везде юзал, ничего не нашел. Есть для 'Развернуть-Свернуть', а для этих нет Помогите, plz!!!

	14.03.2011, 13:56

Как создать обработчик события при нажатии на кнопки Развернуть во весь экран - Восстановить?

Решение