收录日期:2019/01/17 21:44:58 时间: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属性呢

问网易笔试的一道题 VS 2005项目重新编译后DLL文件丢失了 【已答复】同一时间段内评论的次数是否有限制? 正则表达式,去掉指定内容 微机原理怎么学 请教:一个Win::OLE的问题 求教,如何制作一个密码输入框控件 Aptana studio 3 building workspace太慢了 迷茫的Java求学路! 回来咯~~~散个分~~~混个脸熟~~~啦啦啦啦啦~~~~~ wince下的半透明滚动字幕 求助栈列信案例 C#中的括号 ItemCommand 后 DataList 样式变了 找人:tashanzhishi 他写了一篇《中文语音识别技术在c#中的应用》 vs2008中winform应用中,如何设置gridveiw一行数据中,某个字段只读? 请问在linux下如何去连接windows的135端口? 【猥琐小漫画】@2011-10-11 二叉查找数 你能说出为什么吗 破路由密码 问一下我编的程序哪里出错了 有谁对音频设备的读写相对了解的,进来看看。(紧急,非常感谢) smarty模板中html_checkbox怎么用? 由于更改ASP.net的版本是遇到的cscript.exe问题,请高手帮忙解决啊! SQL Server 批處理時,如何返回插入數據主鍵? 注册时用的验证码原代码 怎么解决下面这个NET服务器资源问题? 求asp.net版的报表生成器 程序重启里发生 appcrash 错误,怎么处理啊 JDBC获得表的主键(自增)