Jak w OnClick wykryć czy został naciśniety klawisz myszy?

Mam taką procedure:

procedure TForm1.ComboBox1Click(Sender: TObject);
var
i: integer;
begin
for i:=0 ro Form1.ComponentCount-1 do
if Form1.Components[I] is TRichEdit then
if (Form1.Components[I] as TRichEdit).Tag =1 then
//co tu dac aby wiedzić ze został nacisniety klawisz myszy a nie klawiatury?
// jaki warunek a wtym warunku jest ma byc
(Form1.Components[I] as TRichEdit).SetFocus;

Pozdrawiam.

Hmmm... Nie wiem, czy tak można... Czemu nie użyjesz np. onKeyPress, czy czegoś takiego?

Sprawdzasz wtedy:

if ssLeft in Shift then {wciśnięty lewy klawisz myszy}

Rzeczywiście radziłbym wykorzystać zdarzenia OnKeyDown lub OnKeyPress
dla ComboBox. Wtedy piszesz:

If Key=VK_LBUTTON

(lub VK_RBUTTON)then
coś tam coś tam