Определение нажатой клавиши мыши

[Litvinenko_A]

Добрый день. Помогите кто может. Есть TDBGridEh, у которого установлена опция dgColumnResize. Теперь когда кликаешь по заголовку (в моем случае TitleButton), все время генериться сообщение от левой кнопки мыши, т.е. в событии OnMouseUp параметр Button равен mbLeft. Мне нужно по нажатию правой кнопки отобразить PopUp Menu (как в Windows, когда кликаешь по заголовкам колонки таблицы, например когда в окне вид - таблица).
Есть какая-нибудь функция API для определения нажатия правой клавиши мыши или как эту ситуацию обойти, т.к. прямой привязки к заголовку нет.

[while]

Вот, почему

procedure TCustomDBGridEh.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
....
if {tmp(Datalink <> nil) and Datalink.Active and}
        (Cell.Y < TopDataOffset) and (Cell.X >= IndicatorOffset) and
        not (csDesigning in ComponentState) and Flag then
      begin
        if (dgColumnResize in Options) and (Button = mbRight) then
        begin
          Button := mbLeft;
          FSwapButtons := True;

В классе-потомке перепиши виртуальный метод MouseDown. Если правая кл. - твой код, если левая - inherited метод (сортировка и т.п.).
Или, что "по кривому" будет, поправь исходник:

procedure TCustomDBGridEh.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
...
  ARow: Longint;
  PopCoord: TPoint;
  ACol: Longint;
begin
  if not (csDesigning in ComponentState) and (Button = mbRight) then
  begin
    Cell := MouseCoord(X, Y);
    ACol := Cell.X;
    ARow := Cell.Y;
    if (dgTitles in Options)  then
    begin
      if (ARow = 0)  then
      begin
        PopCoord := ClientToScreen(Point(X, Y));
        FPopUpMenu.Popup(PopCoord.X, PopCoord.Y);
        Exit;
      end;
    end;
  end;

.....

Что получилось тут

[Andryshok]

Может глянь какой нибудь компонент в сети типа TMS Grid

[TemaAE]

GetMouseState - Это API