Tastatureingabe umwandeln

[Frickler]

Ist das nicht eher ein Fall für "OnShortCut"?

Code:

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  if ActiveControl is TEdit then
  begin
    if (Msg.CharCode = Ord('2')) and (ssCtrl in KeyDataToShiftState(Msg.KeyData)) then begin
      PostMessage(ActiveControl.Handle, WM_CHAR, $2082, 0);
      Handled := true;
    end;
  end;
end;

"Handled := true;" sorgt dafür, dass die Meldung nicht an OnKeyDown und folgende weitergeleitet wird.

[BigAl]

Zitat von Frickler:

Ist das nicht eher ein Fall für "OnShortCut"?

Code:

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  if ActiveControl is TEdit then
  begin
    if (Msg.CharCode = Ord('2')) and (ssCtrl in KeyDataToShiftState(Msg.KeyData)) then begin
      PostMessage(ActiveControl.Handle, WM_CHAR, $2082, 0);
      Handled := true;
    end;
  end;
end;

"Handled := true;" sorgt dafür, dass die Meldung nicht an OnKeyDown und folgende weitergeleitet wird.

Hmm. Habe ich ehrlich gesagt noch nie verwendet. Schaue ich mir mal an. Danke!

[BigAl]

Ja, ist besser:

Delphi-Quellcode:

procedure TMyForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
const
  SUPERSCRIPT: Array [Ord('0') .. Ord('9')] of Word =
    ($2070, $00B9, $00B2, $00B3, $2074, $2075, $2076, $2077, $2078, $2079);
var
  Key: Word;
begin
  if (ActiveControl is TEdit) then
  begin
    Key := Msg.CharCode;
    if (Key in [Ord('0') .. Ord('9')]) then
    begin
      if (KeyDataToShiftState(Msg.KeyData) = [ssCtrl]) then
        Key := $2080 + (Key - Ord('0'))
      else if (KeyDataToShiftState(Msg.KeyData) = [ssAlt]) then
        Key := SUPERSCRIPT[Key]
      else
        Exit;

      PostMessage(ActiveControl.Handle, WM_CHAR, Key, 0);
      Handled := True;
    end;
  end;
end;

Der Vorteil dabei ist, dass man das KeyPreview des Formulars nicht setzen muss...