WebBrowser "OnKeyDown"

[S2B]

Hi,
ich möchte gern, dass wenn ich mit einem Strg-Click auf einen Link im WebBrowser klicke, mein Popup-Blocker deaktiviert wird. Wie kann ich das machen? "WebBrowser.OnKeyDown" gibt es ja nicht. :mrgreen:
Hoffe, dass jemand Rat weiß.
Gruß
S2B

[Sharky]

Zitat:

Zitat von S2B

...Hoffe, dass jemand Rat weiß....

Hai S2B,

setze doch einfach KeyPreview deiner Form auf True und werte den Status der Ctrl-Taste dort aus.

[S2B]

Wie kann man den Status dort auswerten (Ich bin noch Delphi-Anfänger :oops:)?
Gruß
S2B

[edit] Ich verwende den Code von SwissDelphiCenter, um die Enter-Taste im Browser zu aktivieren (das funktioniert aber auch nicht zuverlässig...)

[Sharky]

Zitat:

Zitat von S2B

Wie kann man den Status dort auswerten (Ich bin noch Delphi-Anfänger :oops:)?
Gruß
S2B

Deklariere Dir eine globale Variable. Diese setzt Du in OnKeyDown auf True wenn Ctrl gedrückt wurde und in OnKeyUp wieder auf False;

Delphi-Quellcode:

var
  b_ctrl : Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  b_ctrl := False;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssCtrl in Shift then
  begin
    b_ctrl := True;
  end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not (ssCtrl in Shift) then
  begin
    b_ctrl := False;
  end;
end;

[S2B]

Hi,
Es geht! Nur wenn der Focus auf den Browser gesetzt ist, dann geht es nicht wegen dem Enter aktivieren. Da gehen aber auch keine anderen Shortcuts. Vielleicht hast du da noch eine Idee, wie ich das lösen könnte...
Gruß
S2B

[edit] Der Shortcut sollte möglichst nur für den WebBrowser1 gelten...

[S2B]

Soo, das Problem ist schon wieder da! :cry: Bis jetzt hatte ich es so gelöst, dass ich die Entertaste deaktiviert hab, aber die muss jetzt einfach rein! Wenn ich den Code jetzt reintu, dann geht, wenn der Focus auf dem WebBrowser ist, kein Shortcut mehr...

[S2B]

*nochmal nach oben schiebt*
Weiß keiner, wie das gehen könnte?

[edit=Sharky]Du weisst das das pushen von Beiträgen innerhalb von 24h nicht erwünscht ist! Und auch nach 27h muss es nicht sein. Mfg, Sharky[/edit]

[S2B]

Zitat:

Zitat von S2B

[edit=Sharky]Du weisst das das pushen von Beiträgen innerhalb von 24h nicht erwünscht ist! Und auch nach 27h muss es nicht sein. Mfg, Sharky[/edit]

Brummel... Darf ich jetzt?

Also ich formuliere die Frage nochmal um:
Ich möchte einen Hotkey haben, der nur in meiner Anwendung geht (also wäre ein Hook keine Lösung, oder?) und auch geht, wenn ich den Focus auf den TWebBrowser setze, bei dem die Entertaste durch diesen Code aktiviert wurde.

[S2B]

Noch einmal muss ich es einfach probieren:
Wie kann ich diesen Code so verändern, dass die Shortcuts noch funktionieren?