Strg+[Char] not fired in e.g. Edit.KeyDown

Issue #168 resolved
Harry Stahl created an issue

Example: With Pressing Strg+O you won't have a result in S (but e.g. with Strg+F2).

With Shift+S you will:

procedure THKeyDefinitionForm.Edit1KeyDown(Sender: TObject; var Key: Word; var
    KeyChar: Char; Shift: TShiftState);
var
  s: string; w: Word;
begin
  w := Key;

  if ssCtrl in Shift then begin
    S:= 'ssCtrl ';
    w := scCtrl or w;
  end;

  if ssShift in Shift then begin
    S:= S + 'ssShift ';
    w := scShift or w;
  end;

  if Key <> 0 then begin
    s := s + Char (Key);
  end;

Comments (2)

  1. Log in to comment