Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#7

AW: VCL: Eingabe Unicodezeichen in Editorcontrol

  Alt 4. Feb 2021, 15:00
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat