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;