本文整理自网络，侵删。
var hWin: HWND; lStyle : LongInt; lExStyle : LongInt;begin hWin := 65632; // $00010060 // 获取和设置该窗口的样式 lStyle := GetWindowLong(hWin, GWL_STYLE); SetWindowLong(hWin, GWL_STYLE, lStyle); // 获取和设置该窗口的扩展样式 lExStyle := GetWindowLong(hWin, GWL_EXSTYLE); SetWindowLong(hWin, GWL_EXSTYLE, lExStyle);end;
/* 窗口样式参考列表：WS_POPUP - 弹出式窗口(不能与WS_CHILDWINDOW样式同时使用)WS_CHILDWINDOW - 子窗口(不能与WS_POPUP合用)WS_MINIMIZE - 最小化状态WS_VISIBLE - 可见状态WS_DISABLED - 不可用状态WS_CLIPSIBLINGS - 使窗口排除子窗口之间的相对区域WS_CLIPCHILDREN - 当在父窗口内绘图时,排除子窗口区域WS_MAXIMIZE - 具有最大化按钮,须指定WS_SYSTEM样式WS_CAPTION - 有标题框和边框(和WS_TILED样式相同)WS_BORDER - 有单边框WS_DLGFRAME - 带对话框边框样式,不带标题框WS_VSCROLL - 有垂直滚动条WS_HSCROLL - 有水平滚动条WS_SYSMENU - 标题框上带有窗口菜单(须指定WS_CAPTION样式)WS_THICKFRAME - 有可调边框(与WS_SIZEBOX样式相同)WS_GROUP - 组样式,每个组的第一个控件具有WS_TABSTOP样式WS_TABSTOP - 可接受TAB键焦点WS_MINIMIZEBOX - 有最小化按钮WS_MAXIMIZEBOX - 有最大化按钮WS_OVERLAPPEDWINDOW - 具有层叠,标题框,系统菜单,可调边框,系统按钮WS_POPUPWINDOW - 具有单边框,弹出式,系统菜单样式*/
/* 窗口扩展样式参考列表：WS_EX_DLGMODALFRAME - 带双层边框WS_EX_NOPARENTNOTIFY - 创建/销毁时不通知父窗口WS_EX_TOPMOST - 窗口置顶(停留在所有非最高层窗口的上面)WS_EX_ACCEPTFILES - 可接受文件拖放WS_EX_TRANSPARENT - 透明样式,在同属窗口已重画时该窗口才可重画WS_EX_MDICHILD - MDI子窗口样式WS_EX_TOOLWINDOW - 工具条窗口样式WS_EX_WINDOWEDGE - 带凸起边缘的边框WS_EX_CLIENTEDGE - 带阴影的边缘WS_EX_CONTEXTHELP - 有上下文帮助样式,标题栏包含一个问号标志WS_EX_RIGHT - 右对齐WS_EX_RTLREADING - 窗口文本从右到左显示WS_EX_LEFTSCROLLBAR - 垂直滚动条在窗口左边界WS_EX_CONTROLPARENT - 允许用户使用TAB键在窗口的子窗口间搜索WS_EX_STATICEDGE - 当窗口为不可用状态时创建一个三维边缘WS_EX_APPWINDOW - 当窗口可见时将一个顶层窗口放置在任务栏上WS_EX_OVERLAPPEDWINDOW - 带凸起边缘的边框,边缘有阴影WS_EX_PALETTEWINDOW - 带立体边框,有工具条窗口样式,窗口在顶层WS_EX_LAYERED - 分层或透明窗口,该样式可使用混合特效WS_EX_NOINHERITLAYOUT - 子控件不继承窗体或控件的布局WS_EX_LAYOUTRTL - 窗体或控件将具有从右向左的布局(因而会被镜像)WS_EX_COMPOSITED - 用双缓冲从下到上绘制窗口的所有子孙(WinXP以上)WS_EX_NOACTIVATE - 处于顶层但不激活*/
/* 控件样式参考列表：LVS_ICON - 大图标LVS_REPORT - 详细资料LVS_SMALLICON - 小图标LVS_LIST - 列表LVS_SINGLESEL - 只能单选LVS_SHOWSELALWAYS - 始终显示所选中项(包括失去焦点时)LVS_SORTASCENDING - 按升序排序LVS_SORTDESCENDING - 按降序排序LVS_SHAREIMAGELISTS - 共享图像列表(当控件销毁时图像列表仍可用)LVS_NOLABELWRAP - 文字不换行LVS_AUTOARRANGE - 自动排列LVS_EDITLABELS - 允许编辑标签(类似资源管理器的文件更名)LVS_OWNERDATA - 指定一个虚拟的ListView, 由用户自己管理Item数据LVS_NOSCROLL - 禁止滚动条(对LVS_LIST和LVS_REPORT样式不适用)LVS_ALIGNTOP - 顶端对齐LVS_ALIGNLEFT - 左对齐LVS_OWNERDRAWFIXED - 允许自画(仅详细资料模式)LVS_NOCOLUMNHEADER - 详细资料模式时不显示列头LVS_NOSORTHEADER - 列头显示为平面,不响应鼠标点击(详细资料模式)LVS_EX_GRIDLINES - 显示表格线(仅详细资料模式)LVS_EX_SUBITEMIMAGES - 允许子项目显示图像(仅详细资料模式)LVS_EX_CHECKBOXES - 在各项目前面显示复选框LVS_EX_TRACKSELECT - 允许热点选择LVS_EX_HEADERDRAGDROP - 允许通过拖放列头来重新安排各列(详细资料模式)LVS_EX_FULLROWSELECT - 允许选择整行(仅详细资料模式)LVS_EX_ONECLICKACTIVATE - 单击项目激活LVS_EX_TWOCLICKACTIVATE - 双击项目激活LVS_EX_FLATSB - 平面滚动条LVS_EX_REGIONAL - 项目范围只包括图标不透明区域和文字区域(大图标模式)LVS_EX_INFOTIP - 将提示信息窗口的消息通知父窗口LVS_EX_UNDERLINEHOT - 带热点的项目文字带下划线LVS_EX_UNDERLINECOLD - 非热点的项目文字带下划线LVS_EX_MULTIWORKAREAS - 多个工作区(需在没有添加项目前设置)LVS_EX_LABELTIP - 如果没有提示信息文本就展开隐藏的标签LVS_EX_BORDERSELECT - 用选择边框的样式代替高亮LVS_EX_DOUBLEBUFFER - 双缓冲(WinXP以上)LVS_EX_HIDELABELS - 隐藏标签(WinXP以上)LVS_EX_SINGLEROW - 显示单行(WinXP以上)LVS_EX_SNAPTOGRID - 图标自动对齐到表格(WinXP以上)LVS_EX_SIMPLESELECT - (WinXP以上)*/ 相关阅读 >>
Delphi d10.x 安卓app开发中按返回键后程序不退出程序的方法
Delphi 2009 之 tcategorypanelgroup[3]: color
Delphi 调用viewer-windows10 图像浏览器
更多相关阅读请进入《Delphi》频道 >>
