TListView控件的标题栏header高度

[bamboo2000]

哪位大侠给出更改 listview header 高度的代码啊？

[阿三]

放一个imagelist，然后设置listview的image属性，使listview的行高变化

[bdmh]

阿三,楼主是要变header,不是item

[bamboo2000]

对，我是要变header的高度，我现在能查到header的句柄
ListView_GetHeader(ListView1.Handle);
好像还有一个函数，不过它的参数不知道怎么传：
function Header_Layout(Header: HWnd; Layout: PHDLayout): Bool;
begin
Result := Bool( SendMessage(Header, HDM_LAYOUT, 0, Longint(Layout)) );
end;
那个layout参数怎么传啊?

[bamboo2000]

没有会的吗？还是太简单了懒得说啊？

[虎滴小猪猪]

关注

[ccrun.com]

我来了！！！本着做人要厚道的精神，写一段代码真正实现楼主的需求：

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.

效果图在这里：

[willflyz]

var
  h: THandle;
  Rect: TRect;
  high: Integer;
begin
  h := $0002028C; //这个就是Header的句柄,你可以用FindWindow,FindWindowEx去找到
  GetWindowRect(h,Rect);
  high := R.Bottom - R.Top;
  Caption := IntToStr(high );
end;

我这个找任务管理器里面ListView的Header高度是可以的,你可以试一下

[bamboo2000]

我不是想找它的高度，我是想改它的高度，想让它变高一点点，如果再能画上渐变色的背景更好，像迅雷里面那样

[willflyz]

不好意思看错了,你可以参考一下TWinControl.SetBounds,我测试一下可以改变Edit的高度

procedure MySetBounds(aHandle: THandle; BoundsRect: TRect);
var
  WindowPlacement: TWindowPlacement;
begin
  WindowPlacement.Length := SizeOf(WindowPlacement);
  GetWindowPlacement(aHandle, @WindowPlacement);
  WindowPlacement.rcNormalPosition := BoundsRect;
  SetWindowPlacement(aHandle, @WindowPlacement);
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  ahnd: THandle;
  rect: TRect;
  iLeft,iTop,iRight,iBottom: Integer;
begin
  ahnd := Edit1.Handle;
  iLeft   := Edit1.Left;
  iTop    := Edit1.Top;
  iRight  := iLeft + Edit1.Width;
  iBottom := iTop + Edit1.Height;
  rect.Left   := iLeft;
  rect.Top    := iTop;
  rect.Right  := iRight;
  rect.Bottom := iBottom + 10;
  MySetBounds(ahnd,Rect);
end;

[ahjoe]

全部行加高不好吗

[ccrun.com]

[Quote=引用 12 楼 silverpot 的回复:]
妖哥，BCB中也可以这么用吧？
[/Quote]

TListView创建的是标准SysListView32组件，在Delphi,C++Builder,VC,VB中都可以这样做。

[bamboo2000]

谢谢朋友们的热心帮忙！

[银点]

妖哥，BCB中也可以这么用吧？

[cwlyj001]

有的回复我看不见

[m_llw]

看见妖哥不得不顶啊。

[wztimes]

感谢 妖哥, 是我需要的

[wztimes]

可是我用上了, 怎么会有重叠呢, 就是旧的高度的标题还看的到, 像叠在新高度的标题上, 点一下后才会消失, 真正得到新高度的标题栏. 用了 listview1.refresh. 也没用呢