...format text in a TRichEdit by means of Shortcuts?

// Shortcuts to format the selected Text:
// Tastaturkürzel, um den markierten Text zu formatieren:

Ctrl + B: Bold         Fett
Ctrl + I: Italic       Kursiv
Ctrl + S: Strikeout    Durchgestrichen
Ctrl + U: fsUnderline  Unterstrichen

// Put this Code into your Richedit's OnKeyPress handler:
// Diesen Code ins OnKeyPress Ereignis Prozedur hinzufügen:

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
const
  KEY_CTRL_B = 02;
  KEY_CTRL_I = 9;
  KEY_CTRL_S = 19;
  KEY_CTRL_U = 21;
begin
  with (Sender as TRichEdit).SelAttributes do
    case Ord(Key) of
      KEY_CTRL_B: 
        begin
          Key := #0;
          if fsBold in Style then
            Style := Style - [fsBold]
          else
            Style := Style + [fsBold];
        end;
      KEY_CTRL_I: 
        begin
          Key := #0;
          if fsItalic in Style then
            Style := Style - [fsItalic]
          else
            Style := Style + [fsItalic];
        end;
      KEY_CTRL_S: 
        begin
          Key := #0;
          if fsStrikeout in Style then
            Style := Style - [fsStrikeout]
          else
            Style := Style + [fsStrikeout];
        end;
      KEY_CTRL_U: 
        begin
          Key := #0;
          if fsUnderline in Style then
            Style := Style - [fsUnderline]
          else
            Style := Style + [fsUnderline];
        end;
    end;
end;

printed from
www.swissdelphicenter.ch
developers knowledge base