[TComboBox] Как сделать открытие выпадающего списка по отпускании кнопки мыши?

[haword]

То есть, что бы список выскакивал не при нажатии на контрол а при отпускании. Проблема в том что листать списки с комбобоксами очень не удобно. любое касание комбобокса вызывает его список. Хорошо что бы было или настраиваемое или по умолчанию на тачевых устройствах вызов списка происходил при отпускании и при этом учитывалось двигался или нет контрол, что бы если был скролинг список не показывать. В нативном контроле так и реализовано. 

[haword]

сделал но на костылях. изменил обработку onMouseDown 

procedure TCustomComboBox.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  inherited;
  if not (ssTouch in Shift) and (Button = TMouseButton.mbLeft) then
    DropDown
  else
  if ssTouch in Shift then
  begin
    md_x:=x;
    md_y:=y;
    MouseMoved:=False;
  end;
end;

добавил еще две

procedure TCustomComboBox.MouseMove(Shift: TShiftState; X, Y: Single);
begin
  inherited;
  if ssTouch in Shift then
  begin
    if ((x > (md_x + 10)) or (x < md_x -10)) or ((y > (md_y + 10)) or (y < md_y -10)) then
      MouseMoved:=True;
  end;
end;

procedure TCustomComboBox.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
  Y: Single);
begin
  inherited;
  if (not MouseMoved) and (ssTouch in Shift) then
    DropDown;
end;

то есть если тачем нажали на комбобокс и сдвинули палец то список не вызовется. костыль но вроде работает. хотя я уверен есть более красивое решение.