频道分类

Delphi UniDBTreeGrid判断点击折叠事件

作者:admin 来源: 日期:2019/10/22 20:37:18 人气: 标签:

 
UniDBTreeGrid判断点击折叠事件
procedure TMainForm.UniDBTreeGrid2CellClick(Column: TUniDBGridColumn);
begin
 if StrToIntDef(UniEdit1.Text,0)<17 then
 UniEdit2.Text:='折叠'
 else
 UniEdit2.Text:='点击数据';
end;

procedure TMainForm.UniDBTreeGrid2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 UniEdit1.Text:=inttostr(x);
end;

 

或在控件属性面板clientevents->extevents->itermclick
————————————————

原文链接:https://blog.csdn.net/ozhy111/article/details/83856733