Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.073 c
14-1101197595
RainKM
2004-11-23 11:13
2004.12.12
samsung c-200


14-1100851819
БареллО
2004-11-19 11:10
2004.12.12
Совместимость


1-1101738973
Гриша
2004-11-29 17:36
2004.12.12
мемо


1-1101781291
dolphin
2004-11-30 05:21
2004.12.12
пользовательский класс >>перегрузка базовых процедур


1-1101712415
senator
2004-11-29 10:13
2004.12.12
Как преобразовать строку ANSI в Unicode





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский