Головна сторінка
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.071 c
1-1101806596
mouse_web
2004-11-30 12:23
2004.12.12
Компіляція exe (проблема запуску на іншому комп'ютері)


3-1100271741
Dik
2004-11-12 18:02
2004.12.12
Як дізнатися зробив-ли запит UPDATE зміна в базі


1-1101582242
OneFragLeft
2004-11-27 22:04
2004.12.12
Створення обробника подій в Run Time.


9-1091933799
MonoLife
2004-08-08 06:56
2004.12.12
Чи не забагато про Sprite, підкажіть.


3-1100182284
Katrin
2004-11-11 17:11
2004.12.12
Як дізнатися ID створеної за допомогою SQL записи?





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