Головна сторінка
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.054 c
1-1101646116
Tazik
2004-11-28 15:48
2004.12.12
Динамічні масиви.


4-1098931561
DelphiN!
2004-10-28 06:46
2004.12.12
Згорнути абсолютно всі вікна


1-1101370809
спринт
2004-11-25 11:20
2004.12.12
стиль XP


1-1101744749
Сор
2004-11-29 19:12
2004.12.12
TextFile


1-1101878751
Vladik
2004-12-01 08:25
2004.12.12
MDI форми, анімація





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська