关于treeview问题,shellexecute问题

[elitist21cn]

关于treeview问题,shellexecute问题

1.treeview.onclick事件下点击treeview的加号把她展开时,如何让焦点离开treeview或者是不让其触发items.item[i]的select事件,如果用treeview.onchange事件的话不能两次触发同一个item[i]的select 事件,但是我需要.

2.shellexecute打开outlook时如何让其进入新邮件状态,并将收件人地址填进去

[lizhenjia]

2.
ShellExecute(0, 'open', 'mailto:[e-mail]?subject=new', nil, nil, SW_SHOW);

[zhouzx]

1：可以试一下Treeview.onexpanding事件.
procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
if TreeView1.Selected = node then
TreeView1.Selected.Selected :=False;
end;

[cuishengzhen]

gu

[jinhe]

写在onclick 事件中