J johny3066 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-08 #1 [purple][/purple]各位元老，小妹刚刚入行，初学delphi，请多关照。是这麽回事，我们在做一个软件，我先在做界面，用treeview建了一个树形结构。我要用甚麽才能实现，点击就能使其与相关的程序连接起来呢？
[purple][/purple]各位元老，小妹刚刚入行，初学delphi，请多关照。是这麽回事，我们在做一个软件，我先在做界面，用treeview建了一个树形结构。我要用甚麽才能实现，点击就能使其与相关的程序连接起来呢？
D duducat Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-08 #2 onclick事件定义或者在onmousedown事件中定义也可
I iapollo Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-08 #3 uses ...,shellapi; ... procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin // showmessage(node.Text);当前节点名 if node.txt='1111' then begin ShellExecute(handle, nil, Pchar('mailto:apollo_syw@263.net'),//你要执行的程序名及路径。 nil, nil, SW_ShowNormal); end; end;
uses ...,shellapi; ... procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin // showmessage(node.Text);当前节点名 if node.txt='1111' then begin ShellExecute(handle, nil, Pchar('mailto:apollo_syw@263.net'),//你要执行的程序名及路径。 nil, nil, SW_ShowNormal); end; end;
