Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

максимизация окна и системные сообщения   Найти похожие ветки 

← →
tchn   (2004-10-28 19:24) [0]

пытаюсь сделать поведение окон при максимизации как в Delphi IDE.
вот что делаю:

procedure TForm2.WMSysCommand(var Msg: TWMSysCommand);
var
 mf: TForm;
begin
 case Msg.CmdType of
   SC_MAXIMIZE:
     begin
       WindowState := wsMaximized;
       mf := Application.MainForm;
       Top := mf.Top + mf.Height;
       Height := Screen.WorkAreaHeight - Top;
       Left:=Screen.WorkAreaLeft;
       Width := Screen.WorkAreaWidth;
     end;
 end;
 inherited;
end;


работает, но не до конца правильно: при нажатии на системные кнопки или выборе пунктов системного меню -- все ок. но не работает при двойном клике по заголовку окна. очевидно -- другое сообщение ловить нужно. а вот какое?

---

← →
DVM ©   (2004-10-28 19:39) [1]

WM_GETMINMAXINFO?

---

← →
tchn   (2004-10-28 20:26) [2]

большое спасибо!
с WM_GETMINMAXINFO все оказалось куда проще!

---

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

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c