delphi UniDBTreeGrid判断点击折叠事件

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

推荐分享