Главная страница
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.031 c
11-1083996308
fr!
2004-05-08 10:05
2004.12.12
как поймать message?


14-1100853530
Sir John
2004-11-19 11:38
2004.12.12
Microsoft засудит пользователей Linux


14-1101284601
fag2000
2004-11-24 11:23
2004.12.12
Линейное программирование - библиотека с открытыми кодами


1-1101878308
dolphin
2004-12-01 08:18
2004.12.12
record с неизвестным количеством переменных


1-1101541575
Igor_thief
2004-11-27 10:46
2004.12.12
Хинт