コンボボックスの質問です。
知ってる人いたら原因教えてください。

TInputComboBox = class(TComboBox)
private
{ Private 宣言 }
protected
{ Protected 宣言 }
procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
public
{ Public 宣言 }
published
{ Published 宣言 }
end;

procedure TInputComboBox.WMSetFocus(var Message: TWMSetFocus);
begin
showmessage('setfocus');
end;

こんな継承クラスを作ってフォームに貼り付けたとします。
tabでフォーカスを移していった時にはダイアログが出ますがクリックした時に出ないのは
当たり前ですか？フォーカス移ってるんだから出てほし〜なと思うのですけども。