Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Вниз

Событие при максимизации главной формы   Найти похожие ветки 

← →
Игорь Шевченко   (2002-04-17 14:30) [1]

День добрый,

Происходит сообщение WM_SYSCOMMAND с параметром SC_MAXIMIZE


type
TMyForm = class(TForm)
private
procedure WMSysCommand (var Message : TWMSysCommand); message WM_SYSCOMMAND;
procedure DoOnMaximize;
...
end;

procedure TMyForm.WMSysCommand (var Message : TWMSysCommand);
begin
inherited;
if Message.wParam = SC_MAXIMIZE then
DoOnMaximize();
end;


С уважением,

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c