Delphi SysListView32
god00
这个作者很懒,什么都没留下…
展开
-
ListView表格状
procedure TForm1.FormCreate(Sender: TObject);vari: Integer;column: TListColumn;beginfor i := 0 to 5 dobegin column := ListView1.Columns.Add; column.Caption := Format('Col %d', [i]);end;ListView1.ViewStyle := vsReport; //表格状ListView1.GridLines := T转载 2011-05-14 10:41:00 · 401 阅读 · 0 评论 -
NM_DBLCLK消息
procedure TForm1.ButtonClick(Sender: TObject); var H,R,Hproc:HWND; pnmhdr:TNMItemActivate; plvitem:Pointer; pid,temp:DWORD;begin H:=FindWindow(nil,'配置发送服务器'); R:=FindWindowEx(H,0,'SysListView32',''); GetWindowThreadProcessId(H,pid); Hproc:原创 2011-03-30 13:21:00 · 2663 阅读 · 0 评论 -
如何向SysListView32里的某一行发送双击消息
http://topic.csdn.net/u/20100705/05/3e63c08e-172c-42e5-b679-3f8f50ffbe44.html1、填充NMITEMACTIVATE结构,申明部分在CommCtrl单元;2、SendMessage(LV.Handle,WM_Notify,0,@NMITEMACTIVATE);注意:NMITEMACTIVATE结构说明,参考:http://msdn.microsoft.com/en-us/library/bb774771(VS.85).aspx关键是填转载 2011-03-30 12:11:00 · 3400 阅读 · 2 评论