Главная страница
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.061 c
3-1100178213
Мирон
2004-11-11 16:03
2004.12.12
Как в триггере BeforeInsert корректно отменить вставку строки


14-1101138906
Dok_3D
2004-11-22 18:55
2004.12.12
Выборы..


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


14-1100691914
Marser_t
2004-11-17 14:45
2004.12.12
Антология демагогии


6-1087306299
Григорьев Антон
2004-06-15 17:31
2004.12.12
Прошу оценить статью про сокеты