Tastatureingabe umwandeln

[Amateurprofi]

Was hältst Du hiervon?

Delphi-Quellcode:

procedure TMyForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
const
   Superscript:Array[Ord('0')..Ord('9')] of Word=
      ($2070,$00B9,$00B2,$00B3,$2074,$2075,$2076,$2077,$2078,$2079);
begin
  inherited;
  if (ActiveControl is TEdit) and (Key in [Ord('0') .. Ord('9')]) then
  begin
    if (Shift = [ssCtrl]) then Key:=$2080 + (Key - Ord('0'))
      else if (Shift = [ssCtrl, ssShift]) then Key:=SuperScript[Key]
        else Exit;
    PostMessage(ActiveControl.HANDLE, WM_CHAR, Key, 0);
    Key:=0;
  end;
end;

[BigAl]

Zitat von Amateurprofi:

Was hältst Du hiervon?

Delphi-Quellcode:

procedure TMyForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
const
   Superscript:Array[Ord('0')..Ord('9')] of Word=
      ($2070,$00B9,$00B2,$00B3,$2074,$2075,$2076,$2077,$2078,$2079);
begin
  inherited;
  if (ActiveControl is TEdit) and (Key in [Ord('0') .. Ord('9')]) then
  begin
    if (Shift = [ssCtrl]) then Key:=$2080 + (Key - Ord('0'))
      else if (Shift = [ssCtrl, ssShift]) then Key:=SuperScript[Key]
        else Exit;
    PostMessage(ActiveControl.HANDLE, WM_CHAR, Key, 0);
    Key:=0;
  end;
end;

Ist schön kompakt .

[BigAl]

Mir ist eben noch aufgefallen, das Shift-Ctrl-0 nicht funktioniert. Das wird wohl schon von Windows abgefangen: Siehe hier

[Amateurprofi]

Zitat von BigAl:

Mir ist eben noch aufgefallen, das Shift-Ctrl-0 nicht funktioniert. Das wird wohl schon von Windows abgefangen: Siehe hier

Ja, ist mir auch aufgefalllen. Hab ich nicht erwähnt, weil ich dachte, das läge an meinem Windows 7.
Lösung: Für SuperScript nicht Shift-Ctrl verwenden, sondern Alt.

[BigAl]

Gute Idee. Hab's oben geändert.