VCL: Eingabe Unicodezeichen in Editorcontrol

[Uwe Raabe]

Zitat von ULIK:

Danke Uwe, das hilft schon mal weiter. Jetzt muß ich nur noch herausfinden, wie das dort gemacht wird. Ich benötige das Ganze nämlich für einen selbst geschriebenen Editor

Bei einem TMemo könnte man das ungefähr so machen:

Delphi-Quellcode:

procedure TForm599.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  code: Integer;
begin
  if (Shift = [ssAlt]) and (Key = Ord('X')) then begin
    Memo1.SelLength := -4;
    if TryStrToInt('$' + Memo1.SelText, code) then begin
      Memo1.SelText := Chr(code);
      Key := 0;
    end;
  end;
end;