我希望在双击TreeView控件的根节点时,使它不自动展开,如何才能办到。在线等待。谢谢!
解决方案 »
- 求教:Tcombobox控件如何关连Tedit,使选择Tcom时Tedit自动出现对应的数据
- TADOQuery过滤错误,高手指点一下!
- 有什么工具可以获取delphi7里一个控件的所有属性,方法和事件?
- 放分100!!!!!@@@@@刚好,100,强烈要反对--小小不要离开csdn !!!!!!强烈反对!!!
- BDE如何导出XLS电子表格?????????????在线=,很急(分不够再加)
- 多个ADOQuery组件会不会使程序效率下降?
- 有在沧洲、任丘的程序员吗?有急事;有了,请留下信息
- 如何获得组件的顺序?
- 急救!!!
- 我用QRDBText做报表时,如何才能使其绑定的长字段自动换行?
- 用ADOQUERY更新数据的问题?
- 如何用Delphi自身的报表来制作主从式报表,本人只知道大概方向,却不知具体如何做,请多指教!!1
Windows, Messages, SysUtils, Classes, Controls, ComCtrls;type
TTreeView1 = class(TTreeView)
private
procedure WMLButtonDBClick(var Message: TMessage); message WM_LBUTTONDBLCLK;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('samples', [TTreeView1]);
end;{ TTreeView1 }procedure TTreeView1.WMLButtonDBClick(var Message: TMessage);
begin
DblClick;
end;end.
好象忘了加入条件以限制只在节点不展开,
是不是应该在procedure TTreeView1.WMLButtonDBClick(var Message: TMessage);
下面加入条件呢?