L lights Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-22 #1 想请教各位前辈一个问题： 能否指定一个TreeNode对象Text的MaxLength。就像TEdit控件一样。
W wint Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-22 #2 估计不可能，TREEVIEW是WINDOWS的COMMCTRL，由系统负责处理。
W WuWZY Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-22 #3 你完全可以在赋值前过滤！ 好象是...Changing或change事件（记不清了）
F Fudei Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-22 #6 可以的，只要得到编辑时Tedit句柄就好控制了 var wnd: HWND; point: TPoint; // Timer.interval:=1; procedure TForm1.Timer1Timer(Sender: TObject); begin GetCursorPos(point); wnd := WindowFromPoint(point); SendMessage(wnd, EM_LIMITTEXT, 5, 0) // 5为你想要控制的最大长度 end; 如果要更准确些，可以判断所获句柄的父窗口是否是Treeview
可以的，只要得到编辑时Tedit句柄就好控制了 var wnd: HWND; point: TPoint; // Timer.interval:=1; procedure TForm1.Timer1Timer(Sender: TObject); begin GetCursorPos(point); wnd := WindowFromPoint(point); SendMessage(wnd, EM_LIMITTEXT, 5, 0) // 5为你想要控制的最大长度 end; 如果要更准确些，可以判断所获句柄的父窗口是否是Treeview
L liguang Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-24 #7 这个问题十分的简单，请见如下的代码。 //uses commctrl procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean); var wnd:HWND; begin wnd:=TreeView_GetEditControl(TreeView1.Handle); SendMessage(wnd,EM_LIMITTEXT,30,0); end;
这个问题十分的简单，请见如下的代码。 //uses commctrl procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean); var wnd:HWND; begin wnd:=TreeView_GetEditControl(TreeView1.Handle); SendMessage(wnd,EM_LIMITTEXT,30,0); end;
T tanghz Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-31 #9 Use treeview in 1stClass, it's much easier than this. I guess.
