首页 > Windows开发 > 详细

delphi 绑定自定义事件

时间:2017-04-11 01:29:34      阅读:241      评论:0      收藏:0      [点我收藏+]

 

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;

 

delphi 绑定自定义事件

原文:http://www.cnblogs.com/yangxuming/p/6691441.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!