Wenn TWebbrowser eingabe Shortcutaufruf ohne ALT

[Koolance]

Danke fürs angucken.
Ich weiß leider nicht ganz worauf du hinaus willst.

Mein Problem ist das wenn z.B. im Google Edit eine "1" eingegeben wird er auf das Tab&1 springt so also ob ich ALT+1 gedrückt hätte.

Ich benutze XP und IE 7.

[Koolance]

Zusätzliche Info.
Ich habe das ganze mal mit Delphi 2007 kompiliert und habe das gleich Problem.

[Thom]

Sorry: Das war ein Mißverständnis. Ich dachte, dieses Verhalten sei so von Dir gewollt.

Ja - das ist tatsächlich etwas merkwürdig. Das Problem tritt übrigens auch mit Delphi XE auf. Die Ursache liegt offenbar darin, daß in TCustomTabControl.CMDialogChar nicht getestet wird, ob die Alt-Taste betätigt ist, sondern darauf vertraut wird, daß sich Windows schon etwas dabei denkt, wenn es diese Nachricht sendet. Und genau das geht hier schief.

Ich habe mal etwas getestet und eine Lösung gefunden (funktioniert zumindest bei mir):

Delphi-Quellcode:

type
  TPageControl = class(ComCtrls.TPageControl)
  private
    procedure CMDialogChar(var Message: TCMDialogChar); message CM_DIALOGCHAR;
  end;

  TForm1 = class(TForm)
    PageControl1: TPageControl;
    [...]
  end;

procedure TPageControl.CMDialogChar(var Message: TCMDialogChar);
begin
  if GetKeyState(VK_MENU) and $8000<>0
    then inherited;
end;

[Bummi]

Ein guter Hinweis für den Spezialfall, allerdings reagieren (alle) Controls mit & Shortkey so, also auch Buttons auf dem Form....

[Thom]

Ups - das hatte ich gar nicht getestet. Also müßte man für jede verwendete Standard-Komponente eine Ableitung schreiben. Viel Spaß...

[Koolance]

Vielen Dank, auf die Idee wäre ich nicht gekommen.

Ich habe zum test auch mal einen Shortcut auf einen Button gelegt und der ist nicht betroffen. Daher super Lösung für mein gesamtes Problem (ich war schon kurz davor die Shortcuts vor dem öffnen des Webbrowsers zu entfernen).

[Bummi]

@Koolance
interessant, bei mir(XE/2010) ist ein Button mit Caption Button&4 ebenfalls betroffen ...