procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Node: TTreeNode; begin with TreeView1 do begin Node := GetNodeAt(X, Y); ShowHint := (Node <> nil); if ShowHint then begin Hint
function get_dir_parent(dir:string;n:integer):string; //n为几级父目录varst:string;i:integer;begin st:=GetCurrentDir; SetCurrentDir(dir); for i:=1 to n do begin ChDir('..'); end; result:=GetCurrentDir; SetCurrentDir(st);//恢