delphi 绑定自定义事件

 

form创建时绑定

Self.cbb1.Treeview.OnClick := cbb1Click;
Self.cbb1.Treeview.OnMouseDown := cbb1onMouseDown;

 

定义

procedure TForm6.cbb1onMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
node: TTreeNode;
begin
node := cbb1.Treeview.GetNodeAt(X, Y);
if node <> nil then //判断是否选中内容
node.Selected := True;
end;

 

procedure TForm6.cbb1Click(Sender: TObject);
var
i: integer;
begin
//
for i := 0 to cbb1.Treeview.Items.Count - 1 do
begin
if cbb1.Treeview.Items[i].Selected then
begin
if cbb1.Treeview.Items[i].Expanded = True then
begin
cbb1.Treeview.Items[i].Collapse(True);
end
else
begin
cbb1.Treeview.Items[i].Expand(True);
end;
break;
end;
end;
end;