请教delphi中有关事件的问题

Question

在onclick里写，此时selected便是点击的item

Answer 1

ONCLICK就是点击某个ITEM触发的事件啊

Answer 2

procedure TForm1.TreeView1Click(Sender: TObject);
 var
   CurrNode:TtreeNode;
begin
   CurrNode:=treeview1.Selected;
end;

Answer 3

這個問題這麼解決;
定義全局變量m,q,數組data
var
  fTrainBBS: TfTrainBBS;
  data: array of array of Int64;
  p,m: Int64;
procedure TfTrainBBS.FormActivate(Sender: TObject);
var
   TitleNode,DetailNode: TTreeNode;
begin
       p:=p+1;
       SetLength(data,p,2);
       data[p-1,0]:=DM2.CDS_BBSTitle.FieldByName('bbs_id').AsInteger;
       data[p-1,1]:=DM2.CDS_BBSTitle.FieldByName('bbs_fatherid').AsInteger;       TitleNode := Items.AddChild(nil,DM2.CDS_BBSTitle.FieldByName('bbs_fatherid').AsString+DM2.CDS_BBSTitle.FieldByName('bbs_name').AsString+' ----  '+DM2.CDS_BBSTitle.FieldByName('sta_name').AsString+' [ '+DM2.CDS_BBSTitle.FieldByName('modtime').AsString+' ] ');
       TitleNode.SelectedIndex:=p;   //SelectedIndex保存第擊個節點end;
procedure TfTrainBBS.TVBBSDblClick(Sender: TObject);
var
     TrainBBSView : TfTrainBBSView;
begin
   m := TTreeView(Sender).Selected.SelectedIndex;
   //用全局變量保存所選節點end;
快給我分吧!(開玩笑的)

Answer 4

這個問題這麼解決;
定義全局變量m,q,數組data
var
  fTrainBBS: TfTrainBBS;
  data: array of array of Int64;
  p,m: Int64;
procedure TfTrainBBS.FormActivate(Sender: TObject);
var
   TitleNode,DetailNode: TTreeNode;
begin
       p:=p+1;
       SetLength(data,p,2);
       data[p-1,0]:=DM2.CDS_BBSTitle.FieldByName('bbs_id').AsInteger;
       data[p-1,1]:=DM2.CDS_BBSTitle.FieldByName('bbs_fatherid').AsInteger;       TitleNode := Items.AddChild(nil,DM2.CDS_BBSTitle.FieldByName('bbs_fatherid').AsString+DM2.CDS_BBSTitle.FieldByName('bbs_name').AsString+' ----  '+DM2.CDS_BBSTitle.FieldByName('sta_name').AsString+' [ '+DM2.CDS_BBSTitle.FieldByName('modtime').AsString+' ] ');
       TitleNode.SelectedIndex:=p;   //SelectedIndex保存第擊個節點end;
procedure TfTrainBBS.TVBBSDblClick(Sender: TObject);
var
     TrainBBSView : TfTrainBBSView;
begin
   m := TTreeView(Sender).Selected.SelectedIndex;
   //用全局變量保存所選節點end;
快給我分吧!(開玩笑的)

Answer 5

各位想得太复杂了，“我在用treeview的时候想要对各个项目的click事件进行编码“，不就是“要对各个项目变更时编码吗”，用两个事件任你选：
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
beginend;procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);0D
beginend;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 6

使用了TtreeNode以后该怎么办呢？

Answer 7

OnClick和OnItemClick 区别：
OnClick可以用键盘和菜单引发，而且执行结果和单击的结果一样。
而ONItemClick不可以，其它没有什么了。
type TLVItemClickEvent = procedure(Sender: TObject; Button: TMouseButton; Item: TListItem; Pt: TPoint; ColIndex: Integer) of object;property OnItemClick: TLVItemClickEvent;

Answer 8

這個事件不行嗎?  我的程序都行.
procedure TfTrainBBS.TVBBSDblClick(Sender: TObject);
var
     TrainBBSView : TfTrainBBSView;
begin
   m := TTreeView(Sender).Selected.SelectedIndex;
   //用全局變量m 保存所選節點end;

Answer 9

在onclick事件中写一个循环﹐找出哪相item被选中﹐被选中的就是你刚才单击的item﹐这可以说就是item的onclick了。