0

デルファイ v7. 私はここで多くのことを学んでいます。人々は喜んで助けてくれます。それで、私はさらに別の質問があります。

ショートカット キーを使用して、タブ付きノートブックのアクティブなページを変更したいと考えています。コントロール内のキーダウン イベントで実行できますが、ノートブックのタブをクリックするよりも、コントロール内をクリックする時間を節約できません。

例 Delphi7:

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (ssCtrl in Shift) and (Upcase(Chr(key)) = 'T') then
   tabNB.PageIndex:= tabNB.PageIndex +1;
end;

目標は、コントロールのキーダウン イベント内で実行する必要なく、ショートカット キーを使用できるようにすることです。プロジェクトの一部のグローバル領域で、それを可能にする手順を作成することは可能ですか?

4

1 に答える 1

0

ホットキーの設定方法のヒントを使用できます

または、JVCL Jedi ライブラリ (無料) の TJvApplicationHotKey コンポーネントを使用して、フォームにドロップし、Hotkey プロパティを設定し、active プロパティを true に設定して、コードを配置できます。

tabNB.PageIndex:= tabNB.PageIndex +1;

onHotKey イベントで。

ちなみに、TNoteBook は古いコンポーネントなので、代わりに TPageControl を使用できます。

于 2012-05-28T09:38:24.303 に答える