收录日期:2018/11/16 16:19:10 时间:2016/05/29 00:48:57 标签:VCL组件开发及应用
vsReport 结构的listview,我想让caption列不能拖动宽度,而其他的列可以拖,怎么做呢?有什么办法可以实现?
把columns[0]的width,maxwidth,minwidth都设为同一个数
那样还是可以调的,虽然会自动弹回去,但我不想让人看到caption这项
?
我就是想让它类似于enable:=false这种效果,但其他的列要可以调整宽度
下面的控件是监控列改变大小的,你自己改一下吧:
unit PBExListview;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TLVColumnResizeEvent = procedure(Sender: TCustomListview;
    columnindex: Integer;
    columnwidth: Integer) of object;
  TPBExListview = class(TListview)
  private
    FBeginColumnResizeEvent: TLVColumnResizeEvent;
    FEndColumnResizeEvent: TLVColumnResizeEvent;
    FColumnResizeEvent: TLVColumnResizeEvent;

  protected
    procedure DoBeginColumnResize(columnindex, columnwidth: Integer);
      virtual;
    procedure DoEndColumnResize(columnindex, columnwidth: Integer);
      virtual;
    procedure DoColumnResize(columnindex, columnwidth: Integer);
      virtual;
    procedure WMNotify(var Msg: TWMNotify); message WM_NOTIFY;
    function FindColumnIndex(pHeader: pNMHdr): Integer;
    function FindColumnWidth(pHeader: pNMHdr): Integer;
    procedure CreateWnd; override;
  published
    property OnBeginColumnResize: TLVColumnResizeEvent
      read FBeginColumnResizeEvent write FBeginColumnResizeEvent;
    property OnEndColumnResize: TLVColumnResizeEvent
      read FEndColumnResizeEvent write FEndColumnResizeEvent;
    property OnColumnResize: TLVColumnResizeEvent
      read FColumnResizeEvent write FColumnResizeEvent;
  end;

procedure Register;

implementation

uses CommCtrl;

procedure Register;
begin
  RegisterComponents('PBGoodies', [TPBExListview]);
end;

procedure TPBExListview.DoBeginColumnResize(columnindex, columnwidth: Integer);
begin
  if Assigned(FBeginColumnResizeEvent) then
    FBeginColumnResizeEvent(Self, columnindex, columnwidth);
end;

procedure TPBExListview.DoEndColumnResize(columnindex, columnwidth: Integer);
begin
  if Assigned(FEndColumnResizeEvent) then
    FEndColumnResizeEvent(Self, columnindex, columnwidth);
end;

procedure TPBExListview.DoColumnResize(columnindex, columnwidth: Integer);
begin
  if Assigned(FColumnResizeEvent) then
    FColumnResizeEvent(Self, columnindex, columnwidth);
end;

function TPBExListview.FindColumnIndex(pHeader: pNMHdr): Integer;
var
  hwndHeader        : HWND;
  iteminfo          : THdItem;
  ItemIndex         : Integer;
  buf               : array[0..128] of Char;
begin
  Result := -1;
  hwndHeader := pHeader^.hwndFrom;
  ItemIndex := pHDNotify(pHeader)^.Item;
  FillChar(iteminfo, SizeOf(iteminfo), 0);
  iteminfo.Mask := HDI_TEXT;
  iteminfo.pszText := buf;
  iteminfo.cchTextMax := SizeOf(buf) - 1;
  Header_GetItem(hwndHeader, ItemIndex, iteminfo);
  if CompareStr(Columns[ItemIndex].Caption, iteminfo.pszText) = 0 then
    Result := ItemIndex
  else
  begin
    for ItemIndex := 0 to Columns.Count - 1 do
      if CompareStr(Columns[ItemIndex].Caption, iteminfo.pszText) = 0 then
      begin
        Result := ItemIndex;
        Break;
      end;
  end;
end;

procedure TPBExListview.WMNotify(var Msg: TWMNotify);
begin
  inherited;
  case Msg.NMHdr^.code of
    HDN_ENDTRACK:
      DoEndColumnResize(FindColumnIndex(Msg.NMHdr),
        FindColumnWidth(Msg.NMHdr));
    HDN_BEGINTRACK:
      DoBeginColumnResize(FindColumnIndex(Msg.NMHdr),
        FindColumnWidth(Msg.NMHdr));
    HDN_TRACK:
      DoColumnResize(FindColumnIndex(Msg.NMHdr),
        FindColumnWidth(Msg.NMHdr));
  end;
end;

procedure TPBExListview.CreateWnd;
var
  wnd               : HWND;
begin
  inherited;
  wnd := GetWindow(Handle, GW_CHILD);
  SetWindowLong(wnd, GWL_STYLE,
    GetWindowLong(wnd, GWL_STYLE) and not HDS_FULLDRAG);
end;

function TPBExListview.FindColumnWidth(pHeader: pNMHdr): Integer;
begin
  Result := -1;
  if Assigned(PHDNotify(pHeader)^.pItem) and
    ((PHDNotify(pHeader)^.pItem^.mask and HDI_WIDTH) <> 0) then
    Result := PHDNotify(pHeader)^.pItem^.cxy;
end;

end.
不想让人看到caption这项、就不要把値付給caption。
利用TListItem.Data存不可見部分的数据...
厉害,不过改起来太麻烦了,有没有更简单的方法?
TListItem.Data 是TPointer类型,我想存STRING
type TPointRecord=^PointRecord;
     PointRecord = record
       Hide_Code: String;
       Hide_Name: String;
       {...}
     end;

var
  ListItem: TListItem;
  pr: TPointRecord;
begin
  ListItem := ListView1.Items.Add;         //可見部分
  ListItem.Caption := 'Caption' + IntToStr(Line);
  for j := 1 to 4 do begin
    ListItem.SubItems.Add('Sub:'+IntToStr(Line)+IntToStr(j));
  end;

  new(pr);                                 //Hide部分
  pr.Hide_Code := 'Hide_Code: ' + IntToStr(Line);
  pr.Hide_Name := 'Hide_Name: ' + IntToStr(Line);
  ListItem.Data := pr;
end;

procedure TForm1.ListView1Click(Sender: TObject);
var
  pr: TPointRecord; 
begin
  pr := ListView1.Selected.Data;
  showMessage(pr.Hide_Code + '  ' + pr.Hide_Name); //顕示不可視部分
end;

(注:此方法可存一些不顕示的数据)
不能运行呀
厉害!
自己再顶一下
楼主:是哪個不能运行呀?怎麼不能运行了? 現象是什麼?
帮你顶
columns[0].visible:=false這樣不就看不到了嗎
楼上,没Visible属性呢

怎么写键盘监听程序??急!!!!!!!! 在98下怎样取得共享打印机的名字 水晶報表的問題,出錯如下\"faild to Retrieve error message from print engine. 怎么用C++实现邮件发送~ 关于查询效率的简单问题 昨夜又翻看《聊斋志异》,发现一则有趣故事——伏狐。 如何修改注册表才不会被系统自动恢复?有碰到过类似问题者进来 如何在VB中获得进程列表 人民总理爱人民,人民总理人民爱: 纪念周总理逝世30周年(1976.01.08--2006.01.08) 初学请教:为什么会出现这样的错误。谢谢。 程序员必须精读的十本书! 我遭遇了移动公司“黑手”,兄弟们给出出主意,我该如何讨回公道? 怎样在weblogic中配置多个虚拟目录啊? c++引用的问题(为什么改变对象后,引用的值不变) 才转PHP 为了建立一个个人代码库 100分求程序代码 如何用VB修改Access2000的数据库表名? 求:SQL中是否有“自增或自减函数”;如没有怎么实现自增自减。 视图中写三表连接.请各位高手帮帮我! 对何比说磁盘文件今天与昨天是否存在变化,如增加了那些文件,少了哪些文件,哪些文件大小时行了改变 共享打印机时好时坏的问题 谁有用友GRP财政管理软件的下栽,必须是J2EE结构的那个版本!200分 access 只读连接表 如何将列合并? 关于注册表设置Internet选项 重载\"OleDbDataReader\"方法未获取\"0\"参数 大家来看看 Delphi2005下如何将Win32程序转换成.NET程序? 求教 :win2000不能进入,winxp能进入 利用 HashMap 模拟JDBC的结果集,高手来给些意见,谢谢 epson me 1+ 不能网络打印!!!