如何用API选中TreeView一个目录下的一个节点(20分)

全文检索 · 2006-08-12

已知 TreeView的Handle 如何用API选中TreeView一个目录下的一个节点 E文不咋的 帮我看看用那几个API实现 { Tree View } function TreeView_InsertItem(hwnd: HWND; const lpis: TTVInsertStruct): HTreeItem; begin  Result := HTreeItem( SendMessage(hwnd, TVM_INSERTITEM, 0, Longint(@lpis)) ); end; function TreeView_DeleteItem(hwnd: HWND; hitem: HTreeItem): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_DELETEITEM, 0, Longint(hitem)) ); end; function TreeView_DeleteAllItems(hwnd: HWND): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_DELETEITEM, 0, Longint(TVI_ROOT)) ); end; function TreeView_Expand(hwnd: HWND; hitem: HTreeItem; code: Integer): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_EXPAND, code, Longint(hitem)) ); end; function TreeView_GetItemRect(hwnd: HWND; hitem: HTreeItem;  var prc: TRect; code: Bool): Bool; begin  HTreeItem(Pointer(@prc)^) := hitem;  Result := Bool( SendMessage(hwnd, TVM_GETITEMRECT, Integer(code), Longint(@prc)) ); end; function TreeView_GetCount(hwnd: HWND): UINT; begin  Result := SendMessage(hwnd, TVM_GETCOUNT, 0, 0); end; function TreeView_GetIndent(hwnd: HWND): UINT; begin  Result := SendMessage(hwnd, TVM_GETINDENT, 0, 0); end; function TreeView_SetIndent(hwnd: HWND; indent: Integer): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_SETINDENT, indent, 0) ); end; function TreeView_GetImageList(hwnd: HWND; iImage: Integer): HIMAGELIST; begin  Result := HIMAGELIST( SendMessage(hwnd, TVM_GETIMAGELIST, iImage, 0) ); end; function TreeView_SetImageList(hwnd: HWND; himl: HIMAGELIST;  iImage: Integer): HIMAGELIST; begin  Result := HIMAGELIST( SendMessage(hwnd, TVM_SETIMAGELIST, iImage,    Longint(himl)) ); end; function TreeView_GetNextItem(hwnd: HWND; hitem: HTreeItem;  code: Integer): HTreeItem; begin  Result := HTreeItem( SendMessage(hwnd, TVM_GETNEXTITEM, code,    Longint(hitem)) ); end; function TreeView_GetChild(hwnd: HWND; hitem: HTreeItem): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, hitem, TVGN_CHILD); end; function TreeView_GetNextSibling(hwnd: HWND; hitem: HTreeItem): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, hitem, TVGN_NEXT); end; function TreeView_GetPrevSibling(hwnd: HWND; hitem: HTreeItem): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUS); end; function TreeView_GetParent(hwnd: HWND; hitem: HTreeItem): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, hitem, TVGN_PARENT); end; function TreeView_GetFirstVisible(hwnd: HWND): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, nil,  TVGN_FIRSTVISIBLE); end; function TreeView_GetNextVisible(hwnd: HWND; hitem: HTreeItem): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE); end; function TreeView_GetPrevVisible(hwnd: HWND; hitem: HTreeItem): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE); end; function TreeView_GetSelection(hwnd: HWND): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, nil, TVGN_CARET); end; function TreeView_GetDropHilite(hwnd: HWND): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, nil, TVGN_DROPHILITE); end; function TreeView_GetRoot(hwnd: HWND): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, nil, TVGN_ROOT); end; function TreeView_GetLastVisible(hwnd: HWND): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, nil,  TVGN_LASTVISIBLE); end; function TreeView_Select(hwnd: HWND; hitem: HTreeItem;  code: Integer): HTreeItem; begin  Result := HTreeItem( SendMessage(hwnd, TVM_SELECTITEM, code,    Longint(hitem)) ); end; function TreeView_SelectItem(hwnd: HWND; hitem: HTreeItem): HTreeItem; begin  Result := TreeView_Select(hwnd, hitem, TVGN_CARET); end; function TreeView_SelectDropTarget(hwnd: HWND; hitem: HTreeItem): HTreeItem; begin  Result := TreeView_Select(hwnd, hitem, TVGN_DROPHILITE); end; function TreeView_SelectSetFirstVisible(hwnd: HWND; hitem: HTreeItem): HTreeItem; begin  Result := TreeView_Select(hwnd, hitem, TVGN_FIRSTVISIBLE); end; function TreeView_GetItem(hwnd: HWND; var pitem: TTVItem): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_GETITEM, 0, Longint(@pitem)) ); end; function TreeView_GetItemA(hwnd: HWND; var pitem: TTVItemA): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_GETITEM, 0, Longint(@pitem)) ); end; function TreeView_GetItemW(hwnd: HWND; var pitem: TTVItemW): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_GETITEM, 0, Longint(@pitem)) ); end; function TreeView_SetItem(hwnd: HWND; const pitem: TTVItem): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_SETITEM, 0, Longint(@pitem)) ); end; function TreeView_SetItemA(hwnd: HWND; const pitem: TTVItemA): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_SETITEM, 0, Longint(@pitem)) ); end; function TreeView_SetItemW(hwnd: HWND; const pitem: TTVItemW): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_SETITEM, 0, Longint(@pitem)) ); end; function TreeView_EditLabel(hwnd: HWND; hitem: HTreeItem): HWND; begin  Result := Windows.HWND( SendMessage(hwnd, TVM_EDITLABEL, 0, Longint(hitem)) ); end; function TreeView_EditLabelA(hwnd: HWND; hitem: HTreeItem): HWND; begin  Result := Windows.HWND( SendMessage(hwnd, TVM_EDITLABEL, 0, Longint(hitem)) ); end; function TreeView_EditLabelW(hwnd: HWND; hitem: HTreeItem): HWND; begin  Result := Windows.HWND( SendMessage(hwnd, TVM_EDITLABEL, 0, Longint(hitem)) ); end; function TreeView_GetEditControl(hwnd: HWND): HWND; begin  Result := Windows.HWND( SendMessage(hwnd, TVM_GETEDITCONTROL, 0, 0) ); end; function TreeView_GetVisibleCount(hwnd: HWND): UINT; begin  Result := SendMessage(hwnd, TVM_GETVISIBLECOUNT, 0, 0); end; function TreeView_HitTest(hwnd: HWND; var lpht: TTVHitTestInfo): HTreeItem; begin  Result := HTreeItem( SendMessage(hwnd, TVM_HITTEST, 0, Longint(@lpht)) ); end; function TreeView_CreateDragImage(hwnd: HWND; hitem: HTreeItem): HIMAGELIST; begin  Result := HIMAGELIST( SendMessage(hwnd, TVM_CREATEDRAGIMAGE, 0,    Longint(hitem)) ); end; function TreeView_SortChildren(hwnd: HWND; hitem: HTreeItem;  recurse: Integer): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_SORTCHILDREN, recurse,    Longint(hitem)) ); end; function TreeView_EnsureVisible(hwnd: HWND; hitem: HTreeItem): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_ENSUREVISIBLE, 0, Longint(hitem)) ); end; function TreeView_SortChildrenCB(hwnd: HWND; const psort: TTVSortCB;  recurse: Integer): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_SORTCHILDRENCB, recurse,    Longint(@psort)) ); end; function TreeView_EndEditLabelNow(hwnd: HWND; fCancel: Bool): Bool; begin  Result := Bool( SendMessage(hwnd, TVM_ENDEDITLABELNOW, Integer(fCancel),    0) ); end; function TreeView_GetISearchString(hwndTV: HWND; lpsz: PChar): Bool; begin  Result := Bool( SendMessage(hwndTV, TVM_GETISEARCHSTRING, 0,    Longint(lpsz)) ); end; function TreeView_GetISearchStringA(hwndTV: HWND; lpsz: PAnsiChar): Bool; begin  Result := Bool( SendMessage(hwndTV, TVM_GETISEARCHSTRING, 0,    Longint(lpsz)) ); end; function TreeView_GetISearchStringW(hwndTV: HWND; lpsz: PWideChar): Bool; begin  Result := Bool( SendMessage(hwndTV, TVM_GETISEARCHSTRING, 0,    Longint(lpsz)) ); end; function TreeView_SetToolTips(wnd: HWND; hwndTT: HWND): HWND; begin  Result := HWND(SendMessage(wnd, TVM_SETTOOLTIPS, WPARAM(hwndTT), 0)); end; function TreeView_GetToolTips(wnd: HWND): HWND; begin  Result := HWND(SendMessage(wnd, TVM_GETTOOLTIPS, 0, 0)); end; function TreeView_SetInsertMark(hwnd: HWND; hItem: Integer; fAfter: BOOL): BOOL; begin  Result := BOOL(SendMessage(hwnd, TVM_SETINSERTMARK, WPARAM(fAfter), LPARAM(hItem))); end; function TreeView_SetUnicodeFormat(hwnd: HWND; fUnicode: BOOL): BOOL; begin  Result := BOOL(SendMessage(hwnd, TVM_SETUNICODEFORMAT, WPARAM(fUnicode), 0)); end; function TreeView_GetUnicodeFormat(hwnd: HWND): BOOL; begin  Result := BOOL(SendMessage(hwnd, TVM_GETUNICODEFORMAT, 0, 0)); end; function TreeView_SetItemHeight(hwnd: HWND; iHeight: Integer): Integer; begin  Result := SendMessage(hwnd, TVM_SETITEMHEIGHT, iHeight, 0); end; function TreeView_GetItemHeight(hwnd: HWND): Integer; begin  Result := SendMessage(hwnd, TVM_GETITEMHEIGHT, 0, 0); end; function TreeView_SetBkColor(hwnd: HWND; clr: COLORREF): COLORREF; begin  Result := COLORREF(SendMessage(hwnd, TVM_SETBKCOLOR, 0, LPARAM(clr))); end; function TreeView_SetTextColor(hwnd: HWND; clr: COLORREF): COLORREF; begin  Result := COLORREF(SendMessage(hwnd, TVM_SETTEXTCOLOR, 0, LPARAM(clr))); end; function TreeView_GetBkColor(hwnd: HWND): COLORREF; begin  Result := COLORREF(SendMessage(hwnd, TVM_GETBKCOLOR, 0, 0)); end; function TreeView_GetTextColor(hwnd: HWND): COLORREF; begin  Result := COLORREF(SendMessage(hwnd, TVM_GETTEXTCOLOR, 0, 0)); end; function TreeView_SetScrollTime(hwnd: HWND; uTime: UINT): UINT; begin  Result := SendMessage(hwnd, TVM_SETSCROLLTIME, uTime, 0); end; function TreeView_GetScrollTime(hwnd: HWND): UINT; begin  Result := SendMessage(hwnd, TVM_GETSCROLLTIME, 0, 0); end; function TreeView_SetInsertMarkColor(hwnd: HWND; clr: COLORREF): COLORREF; begin  Result := COLORREF(SendMessage(hwnd, TVM_SETINSERTMARKCOLOR, 0, LPARAM(clr))); end; function TreeView_GetInsertMarkColor(hwnd: HWND): COLORREF; begin  Result := COLORREF(SendMessage(hwnd, TVM_GETINSERTMARKCOLOR, 0, 0)); end;

clip_on · 2006-08-12

这些API要怎么才能调用呀

zqw0117 · 2006-08-12

function TreeView_GetNextSibling(hwnd: HWND; hitem: HTreeItem): HTreeItem; begin  Result := TreeView_GetNextItem(hwnd, hitem, TVGN_NEXT); end;

全文检索 · 2006-08-12

自已搞定了 zqw0117的方法没去试

如何用API选中TreeView一个目录下的一个节点(20分)

全文检索

Unregistered / Unconfirmed

clip_on

Unregistered / Unconfirmed

zqw0117

Unregistered / Unconfirmed

全文检索

Unregistered / Unconfirmed

Similar threads