Листинг 10.8.
Массив с информацией о дополнительных оконных стилях
exstyles: array [0..18] of StyleInfo =
(
(value: WS_EX_ACCEPTFILES; name: \'WS_EX_ACCEPTFILES\'),
(value: WS_EX_APPWINDOW; name: \'WS_EX_APPWINDOW\'),
(value: WS_EX_CLIENTEDGE; name: \'WS_EX_CLIENTEDGE\'),
(value: WS_EX_CONTEXTHELP; name: \'WS_EX_CONTEXTHELP\'),
(value: WS_EX_CONTROLPARENT; name: \'WS_EX_CONTROLPARENT\'),
(value: WS_EX_DLGMODALFRAME; name: \'WS_EX_DLGMODALFRAME\'),
(value: WS_EX_LAYERED; name: \'WS_EX_LAYERED\'),
(value: WS_EX_LEFT; name: \'WS_EX_LEFT\'),
(value: WS_EX_LEFTSCROLLBAR; name: \'WS_EX_LEFTSCROLLBAR\'),
(value: WS_EX_MDICHILD; name: \'WS_EX_MDICHILD\'),
(value: WS_EX_NOACTIVATE; name: \'WS_EX_NOACTIVATE\'),
(value: WS_EX_NOINHERITLAYOUT; name: \'WS_EX_NOINHERITLAYOUT\'),
(value: WS_EX_NOPARENTNOTIFY; name: \'WS_EX_NOPARENTNOTIFY\'),
(value: WS_EX_RIGHTSCROLLBAR; name: \'WS_EX_RIGHTSCROLLBAR\'),
(value: WS_EX_STATICEDGE; name: \'WS_EX_STATICEDGE\'),
(value: WS_EX_TOOLWINDOW; name: \'WS_EX_TOOLWINDOW\'),
(value: WS_EX_TOPMOST; name: \'WS_EX_TOPMOST\'),
(value: WS_EX_TRANSPARENT; name: \'WS_EX_TRANSPARENT\'),
(value: WS_EX_WINDOWEDGE; name: \'WS_EX_WINDOWEDGE\')
);