Обработка кликов окна

[IvaniuS]

Доброго времени суток!
У меня есть достаточно простое приложение, в котором есть TListView, с полной перерисовкой (возможно влияет), мне нужно:
Обрабатывать одинарное нажатие правой кнопки мыши, для выделения элементов в списке, при этом пропускать "сквозь него" все другие нажатия, на других элементах вызывать SC_DRAGMOVE при нажатии правой кнопки мыши, не реагировать на потерю фокуса (или наоборот WS_EX_NOACTIVATE не получать его)..

Сейчас сделал костыль, который меня совсем не устраивает:

const
  SC_DRAGMOVE = $F012;
begin
  if (Button = mbRight) then
  begin
   ...
  end;
  SetForegroundWindow(WindowHandle);//окно под приложеием
  inherited;
end;

В таком виде наше окно не бывает в фокусе и приходится клацать 2-3 раза, чтобы выделить итем в списке.

Есть идея
Сделать форму: WS_EX_TRANSPARENT;
точнее ту часть где все клики можно пропускать, сверху создать еще одну форму только со списком, но это опять-же не решение данной проблемы.

Чисто теоретически мне нужно перехватить сообщения WM_LBUTTONDOWN и WM_LBUTTONUP и передавать их форме только тогда когда это нужно, но не знаю решит-ли это вопрос с кликами "сквозь".

Всем заранее благодарен за ответы и обсуждения моего вопроса и его решения.

П.С. прочитал достаточно много решений в интернете, но пока не нашел подходящего.

Оказывается решение и крылось в WS_EX_NOACTIVATE в стилях, добиваю того результата что нужно, почти теперь нужно понять как перехватывать нажатия правой кнопкой мыши над моим приложением WM_LBUTTONDOWN?

[Fatov]

тоже возился с WS_EX_TRANSPARENT, а оказалось всего то нужно было добавить WS_EX_NOACTIVATE.
у меня правый клик так обрабарывается:

procedure TEvents.OnMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ItemIndex1: integer;
begin
  if (Sender=LB) and (Button=mbRight) then begin
    ItemIndex1:=LB.ItemAtPos(Point(x,y), true);
    if (ItemIndex1>-1) then begin
      //таргетинг
      LB.ItemIndex := ItemIndex1;
    end;
  end;
end;