Vielen Dank für den Hinweis!
Schön, daß bei Dir die Demo funktioniert.
Das Problem mit dem "t" habe ich gerade untersucht. Dummerweise entspricht der Code beim Loslassen der Taste T genau dem beim Betätigen der Taste F5. Deshalb muß eine Unterscheidung zwischen KeyDown und KeyUp in der
Unit BrowserTools hinzugefügt werden:
Delphi-Quellcode:
unit BrowserTools;
uses
..., Messages;
function TDocHostUIHandler.TranslateAccelerator(
const lpMsg: PMSG;
const pguidCmdGroup: PGUID;
const nCmdID: DWORD): HResult;
begin
Result:=S_FALSE;
if Assigned(FOnTranslateAccelerator)
and Assigned(lpMsg)
and
(lpMsg.Message=WM_KEYDOWN)
and FOnTranslateAccelerator(Self,lpMsg.wParam)
then Result:=S_OK;
end;