procedure THIToolBar._OnTBDropDown(Obj:PObj);
var
  pos: TPoint;
  r: TRect;
  dtidx, dtpos: TData;
begin
  r := Control.TBButtonRect[Control.CurIndex];
  pos.x := r.left;
  pos.y := r.bottom;
  pos := Control.Client2Screen(pos);
  dtInteger(dtidx, Control.CurIndex mod 100);
  dtInteger(dtpos, pos.y shl 16 + pos.x);
  dtidx.ldata := @dtpos;
  _hi_onEvent_(_event_onTBDropDown, dtidx); 
end;