Delphi TreeView
各位大侠：
小弟遇到一个麻烦的问题。小弟的程序里用到的TreeView控件，
现在的问题是这样的，小弟在点击(+)的时候，会运行onlClick();
现在想屏蔽这个事件，有何好的办法？
TreeView.onClick := nil;这样等于你所以的点击事件都不能用了，如果是这样那你为什么要写onClick事件，不写不就没事了吗？
TreeView.onClick := nil 的话。那点击事件不就永远不能用了吗，可我还需要点击事件的。
程序要的效果是：点击(+)的时候，不要onClick事件，其他时候，还是需要 onClick事件的
当点击加号时会先触发OnExpanding事件，你可以在OnExpanding中做一个标记，在OnExpanded事件中把标记置回原来状态，然后在OnClick事件中去判断这个标记
试了一下，不行。。
抑闷............
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if YN then exit;
showmessage('单击啦！');
end;
procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode);
begin
YN:=true;
end;
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
YN:=false;
end;
其中YN:boolean;是全局变量。
最后一个Onmouse会占资源吧？
这样改一下好不好？我刚学两天，请指正。
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if YN then exit;
showmessage('单击啦！');
&n
相关问答：
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
