本文整理自网络,侵删。
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
相关阅读 >>
Delphi中使用低层钩子 屏蔽win、ctrl+esc、alt+tab、alt+f4
idhttp访问网页出现socket error #10054错误
更多相关阅读请进入《Delphi》频道 >>