ListViewのヘッダ行をカスタマイズするには？

さざ波 2009-10-02 05:05:02 No: 35802

標記の件、ListViewのヘッダ行の、例えば
高さを変える、というのがどうしてもわかりません。ネットでだいぶ探したのですが
わかりませんでした。
よろしくお願いします。

環境は WinXP SP3 Delphi2010 でもほんとは C++Builder2010 で教えていただけると助かります・・・

けど 2009-10-03 06:27:19 No: 35803

C++ わからないんでとりあえず Delphi で動いたコードを

uses
CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Header_Handle: HWND;
  WindowPlacement: TWindowPlacement;
begin
  Header_Handle := ListView_GetHeader(ListView.Handle);
  FillChar(WindowPlacement, SizeOf(WindowPlacement), 0);
  WindowPlacement.Length := SizeOf(WindowPlacement);
  GetWindowPlacement(Header_Handle, @WindowPlacement);
  WindowPlacement.rcNormalPosition.Bottom:=
    WindowPlacement.rcNormalPosition.Top+UpDown.Position;//
  SetWindowPlacement(Header_Handle, @WindowPlacement);
//このあとヘッダ以外の位置も調整しなくてはいけない
end;