Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.03 c
1-1101715306
Molchanov
2004-11-29 11:01
2004.12.12
Удаление строк из TRichEdit


14-1101284415
Ricko
2004-11-24 11:20
2004.12.12
"На самом деле"


3-1100182085
}|{yk
2004-11-11 17:08
2004.12.12
Инвалидность объектов в Firebird


14-1101101656
Slider007
2004-11-22 08:34
2004.12.12
Два вопроса по настройке Windows XP (sp2)


3-1100264144
zorik
2004-11-12 15:55
2004.12.12
SQL запрос