Максимальное раскрытие и восстановление окна

← →
Eugene (2004-05-29 09:52) [0]

Здравствуйте мастера!
Есть рабочий код:

procedure TMainForm.WMSysCommand;
begin
if Msg.CmdType=SC_MAXIMIZE then begin
inherited;
ResizeColumns(true);end
else if Msg.CmdType=SC_RESTORE then begin
inherited;
ResizeColumns(false);end
else
inherited;
end;

Но он, к сожалению работает, если только нажимать на системное меню, а если нажать два раза на заголовок окна, то процедура ResizeColumns() не выполняется.
Подскажите пожалуйста какое сообщение нужно перехватывать или как вообще это можно организовать.
Заранее благодарен.

← →
Алексей Васильев © (2004-05-29 10:32) [1]

Я это решил с помощью перехвата Message.CmdType с номерами
61458, 61490 при максимизации на заголовке и 61730 при обратном действии.

Спасибо тебе Алексей за ответ!
Но я тут еще немного покопался и обнаружил еще один выход.
Перехватывать сообщение WM_SIZE. Вот что из этого получилось:

procedure TMainForm.WindowSize;
begin
if Msg.SizeType=SIZE_MAXIMIZED then begin
inherited;
ResizeColumns(true);end
else if Msg.SizeType=SIZE_RESTORED then begin
inherited;
ResizeColumns(false);end
else
inherited;
end;

Все заработало.

Максимальное раскрытие и восстановление окна Найти похожие ветки