- お知らせ -
  • 当wikiのプログラムコードの表示を直してみました(ついでに長い行があると全体が下にぶっ飛ぶのも修正)。不具合があればBBSまでご連絡下さい。

はじめに Edit

ActiveXのTWebBrowser使う時の話し(はなしし)

WebBrowserコントロール上でショートカットが効かないよー Edit

何故かブラウザ上でショートカットが効かないのを直そう。

TApplicationEventsコンポーネントをフォーム上に追加し、以下のようにOnMessageイベントを書く

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TMainForm.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean);
  function ProcessKeyForBrowser(const Msg: TMsg): Boolean;
  var
    Key: TWMKey;
  begin
    Key.Msg := Msg.message;
    Key.CharCode := msg.wParam;
    Key.KeyData := msg.lParam;
    Key.Result := 0;
    Result := Self.IsShortCut(Key);
  end;
begin
  case Msg.message of
    WM_KEYDOWN: begin
      Handled := ProcessKeyForBrowser(Msg);
    end;
  end;
end;

で、動作しているみたい。OpenJaneを参考にしますた。




Front page   Edit Freeze Diff Backup Upload Copy Rename Reload   New Pages Search Recent changes   Help   RSS of recent changes
Last-modified: 2005-12-10 Sat 23:52:11 JST (5116d)