WebBrowser "OnKeyDown"

[Sharky]

Zitat von S2B:

Wie kann man den Status dort auswerten (Ich bin noch Delphi-Anfänger )?
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;