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