Strg+[Char] not fired in e.g. Edit.KeyDown
Issue #168
resolved
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)
-
repo owner -
repo owner - changed status to resolved
- Log in to comment
What is "Strg" ? It it is "Control" it should be fixed in 1.27.