如何给另一个exe文件的TreeView发送消息,
给每个目录发送单击、双击事件
给每个目录发送单击、双击事件
解决方案 »
- 刚装了dbgideh 导出excel问题
- 给rectxy:TRect=赋初值的办法
- dbgrideh 统计和的问题
- 关于VCLSkin使用后dbgrid闪烁问题
- 再问一次这个问题,我的多线程做法是否有问题,高手帮我看看,我就剩30分了,以后补好吗?
- dephi中random,如执行random(35)每次都是同样的顺序结果?听说有一个种子数的事,如何办?
- 请问怎么把dbgrid中的当前行的所有字段的数据放到memo中去啊?各字段用回车隔开,高手快来抢分啊
- 怎麼轉回數字類型?
- Delphi中的procedure(...)函数是什么意思,有什么作用?谢谢
- 请问!!哪边有用dephi实现关于corba的源代码下载!!!
- 如何让一个应用程序不出现在任务栏上?
- 关于cxgrid的问题
2。找到TreeView所在的窗口的句柄,用FindWindow找
3。sendmessage发消息
你能否写详细,例如给每个分支发消息,如何定位
enumchildwindow
sendmessage
commctrl;写了个小例子var
h: HWND;
hItem: HTREEITEM;
pitem: tagTVITEM;
begin
h := FindWindow(nil,'桌面');
if (h <> 0) then
begin
h := FindWindowEx(h,0,'BaseBar',nil);
if (h <> 0) then
begin
h := FindWindowEx(h,0,'ReBarWindow32',nil);
if h<> 0 then
begin
h := findwindowex(h,0,'SysTreeView32',nil);
if h <> 0 then
begin
hitem := TreeView_GetFirstVisible(h);
while (hitem <> nil) do
begin
TreeView_Expand(h,hitem,TVE_EXPAND);
hitem := TreeView_GetNextVisible(h,hitem);
end;
end;
end;
end;
end;
end;
展开自愿浏览器的treeview
commctrl单元里面有很多关于Treeview操作的函数,有时间可以看看(以TreeView_开头的函数)
如TreeView_GetItem,TreeView_GetNextVisible等等