TListView控件的标题栏header高度
来源:互联网 发布:淘宝客高佣接口 编辑:程序博客网 时间:2024/05/18 03:42
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls, CommCtrl; type TForm1 = class(TForm) ListView1: TListView; ListView2: TListView; Label1: TLabel; Label2: TLabel; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form1: TForm1; lvhOldProc, lvhNewProc: TFarProc; hHeader: THandle; implementation {$R *.dfm} function LvHeaderNewWndProc(h: THandle; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; var phdl: PHDLayout; prct: PRect; pwp: PWindowPos; begin Result := CallWindowProc(lvhOldProc, h, uMsg, wParam, lParam); if uMsg = HDM_LAYOUT then begin phdl := PHDLayout(lParam); prct := PRect(phdl.Rect); pwp := PWindowPos(phdl.WindowPos); pwp.cy := pwp.cy + 10; // Header默认高是17,修改成17 + 10 = 27; prct.top := pwp.cy + 2; end; end; procedure TForm1.FormCreate(Sender: TObject); begin hHeader := ListView_GetHeader(ListView1.Handle); lvhOldProc := FARPROC(GetWindowLong(hHeader, GWL_WNDPROC)); SetWindowLong(hHeader, GWL_WNDPROC, Longint(@LvHeaderNewWndProc)); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin SetWindowLong(hHeader, GWL_WNDPROC, Longint(lvhOldProc)); end; end. 效果图在这里:
- TListView控件的标题栏header高度
- TListView控件拖拽的问题
- android 标题栏的高度
- 修改标题栏的高度
- 获取标题栏的高度
- 使TListView header变成flat
- Android获得标题栏和状态栏高度,以及立即获取控件的高度
- Android获得标题栏和状态栏高度,以及立即获取控件的高度
- Android获得标题栏,状态栏,控件,屏幕高度
- Android 获取标题栏的高度
- 获取状态栏、标题栏的高度
- 不用自绘(owner draw)就改变TListView header的字体
- Delphi 常用控件之TlistView
- Delphi TListView 修改列表头高度、字体大小
- delphi TListView的使用
- delphi TListView的使用
- TListView的使用
- 状态栏高度 && 标题栏高度
- web测试注意细则
- QQ糖豆的第一个愿望有多远?
- 解决中文乱码的过滤器
- 设计范例(Design Pattern)真的很重要吗? part 1
- 2009.6.28 OA 项目组一周工作报告
- TListView控件的标题栏header高度
- #include file和#include virtual的区别
- 流行词语新解
- 汽车检测线
- ASP.NET AJAX Sys未定义的解决方法
- 谷歌信息技术(中国)有限公司和北京谷歌科技有限公司的官司
- 对杂乱的JS代码进行规范的整理格式化
- 面试题精选(83):二叉树相关的问题
- 有关大自然启示的资料