перехватить клик мышки на компоненте. Делфи.

[Roof]

необходимо перехватить клик мышкой над компонентом (NextSheet) в определенном месте. пробовал вот так:

procedure TFrm_main.Spis_poleyClick(Sender: TObject);
begin
 with Spis_poley do
   if (SelectedRow=0) or (SelectedRow=1) or (SelectedRow=2)  then begin
     perform(wm_LButtonDown, MK_LBUTTON,10+(80 shl 16));
     perform(wm_LButtonUp, MK_LBUTTON, 10+(80 shl 16));
   end;
end;

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

Или возможно ли просто перехватить клик мышкой на компоненте в определенном месте и сделать так чтобы компонент никак не реагировал на нажатие мышки?

[Stilet]

Ну поставь ему Enable:=false и не парься особо )

[Roof]

Гг))))) если бы все так просто))) Дело в том, что это таблица, а в ней только некоторые ячейки нельзя выбирать.

[Armorer]

Чтобы нельзя было выбирать можно переводить фокус ввода после клика на другой компонент. Или другую ячейку.

[Roof]

так я чего и делал. Только клик срабатывает. А потом уже переводит фокус. А мне надо чтобы клик не срабатывал на самом компоненте, а фокус сразу же переводил. Т.е. нужна процедурка, которая будет видеть, если пользователь кликнул на компоненте, то подавить реакцию компонента, а уже потом перевести фокус в другое место. как-то так