2ch専用ブラウザ「かちゅ〜しゃ＆kage」 annex 1

ショートカットキー定義に成功したので報告しておきます。
BoardListViewMenuに、
object N12: TMenuItem
Caption = '検索'
ShortCut = 16468
OnClick = SearchBtnClick
end

ThreadListMenuの中に
object N13: TMenuItem
Caption = '検索'
ShortCut = 16468
OnClick = SearchBtnClick
end

を追加しました。 キーは CTRL+T(16468)に割り当てました。
object の名前はN12,N13になってますが、
ユニークであれば何でもよさそうです。（重複してると一般保護）


ほんとはツールバーの検索ボタンに直接ショートカットを
作りたかったんですが、ShortCut = 16468 を挿入すると、
起動時にプロパティエラーで一般保護になりました。
もっと良い方法はないでしょうか。

追加で

TabMenuの中の最後に

object N14: TMenuItem
Caption = '検索'
ShortCut = 16468
OnClick = SearchBtnClick
end
を追加しました。
これで、スレッドビューのフォーカスからでも
検索ダイアログが出る様になりました。