国立台北大学:ListView列宽改变时的消息响应

来源：百度文库 编辑：中财网 时间：2024/04/27 22:24:10

ListView列宽改变时的消息响应

分类： Delphi 2009-02-10 22:49 453人阅读 评论(4) 收藏 举报

[delphi] view plaincopy?

  1. unit Unit1;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs, StdCtrls, ComCtrls,CommCtrl;  
  8.   
  9. type  
  10.   PHD_NOTIFY=^HD_NOTIFY;  
  11.   TForm1 = class(TForm)  
  12.     ListView1: TListView;  
  13.     Button1: TButton;  
  14.     procedure FormDestroy(Sender: TObject);  
  15.     procedure Button1Click(Sender: TObject);  
  16.   private  
  17.     { Private declarations }  
  18.     oldProc:  TWndMethod;  
  19.     procedure NewProc(var Message: TMessage);  
  20.   public  
  21.     { Public declarations }  
  22.   end;  
  23.   
  24. var  
  25.   Form1: TForm1;  
  26.   
  27. implementation  
  28.   
  29. {$R *.dfm}  
  30.   
  31. procedure TForm1.NewProc(var Message: TMessage);  
  32. var hn:PHD_NOTIFY;  
  33. begin  
  34.   if message.Msg=WM_NOTIFY then  
  35.   begin  
  36.     hn:=PHD_NOTIFY(Message.LParam);  
  37.     if(hn^.Hdr.code=HDN_BEGINTRACKA)or(hn^.hdr.code=HDN_BEGINTRACKW) then  
  38.     begin  
  39.       // Message.Result   :=   1;     加入这一行就使的列头不能改变宽度   
  40.       //   如果要在拖动完成后作处理，可以判断hn->hdr.code是否   
  41.       //   等于HDN_ENDTRACKA或HDN_ENDTRACKW，然后作处理。   
  42.       ShowMessage('hehe');  
  43.     end  
  44.     else  
  45.       ListView1.Dispatch(Message);  
  46.   end;    
  47. end;  
  48.   
  49. procedure TForm1.FormDestroy(Sender: TObject);  
  50. begin  
  51.   ListView1.WindowProc:=OldProc;  
  52. end;  
  53.   
  54. procedure TForm1.Button1Click(Sender: TObject);  
  55. begin  
  56.   OldProc:= ListView1.WindowProc;  
  57.   ListView1.WindowProc:= NewProc;  
  58. end;  
  59.   
  60. end.  

VB6 listview 控件怎么样动态改变其列宽？？ 在Excel里怎样在不改变第二列的宽度时拉动第一列宽 求listview delphi7 属性方法（如：改变列宽度，换行，写入内容）if 能解答 then 不胜感激 读LISTVIEW时碰到的问题 为什么dreamweaver的表格总是会自动改变列宽? 怎样改变QQ来消息时的提示音? listview的使用方法 listview的使用？？？？ listview控件的使用 谁知道怎样改变QQ来消息时的声音？和QQ好友来消息的声音？ [JS]改变按键响应事件的问题 为什么在使用MFC编程时,通过菜单项建立的消息映射不能响应? 谁帮我写1个查询100行×6列的listview的第5列数据的查询代码，我写的老是有问题，谢谢 请问asp.net中 怎么让select下拉框改变时,其他文本框的内容也响应改变? asp.net中 怎么让select下拉框改变时,其他文本框的内容也响应改变? VB中怎么让一个ListView控件分好几列显示，分几列显示以后怎么在不同的列上显示数据？ Excel中怎样改变列宽？ 如何响应DataList模板中的控件的消息 vc 中，如何响应CStatic的右键单击消息？ 有关于肖恩.康那列的消息吗 dataset,listview,grid,recordset他们的是什么，异同点，相互之间的关系时怎样的？ delphi中关于listview的问题 vb中控件listview的详细使用 vb 修改listview某行的图标