| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Стили окна [D7]
DelphiLexx © (2004-09-22 17:38:00)Var
Style:Integer;
ExStyle:Integer;
WND:HWND;
begin
...
WND:=...{Значение хэндла окна}
STYLE:=GetWindowLong(WND, GWL_STYLE); {стиль окна}
ExSTYLE:=GetWindowLong(AboutWindow.WND, GWL_EXSTYLE); {расширенный стиль}
...
end;
STYLE и ExStyle возвращают обычные и расширенные стили окна в значении
типа Integer. Вопрос: как переменные STYLE и ExSTYLE можно разбить на
константы из которых они складываются (через Case очень большой код и
не надежно)?
Пример: Пусть Style = A8100000, тогда мы должны получить:
{В системе HEX}
WS_POPUP = 80000000
WS_MINIMIZE=20000000
WS_DISABLED=8000000
WS_HSCROLL=100000
-------------------
Итг:A8100000
Spy++ (средства Visual C++) как-то удалось это сделать.
Defunct (2004-09-22 17:51:00) [1]WS_POPUP andSTYLE
WS_MINIMIZE andStyle
и т.д.
Sandman25 (2004-09-22 17:47:00) [2]Пробежаться по константам и сделать And
| |
