Memo-Schriftgröße verändern per Tastenkombination

[FritzAT]

Es gibt da vielleicht nochwas...

Delphi-Quellcode:

procedure TMainForm.FormKeyDown(Sender:TObject; var Key:Word;Shift:TShiftState);
var FS: Integer;
begin
  // Strg und "+"
  if (ssCtrl in Shift) and (Key = vk_Add) then
  begin
    FS:= Memo.Font.Size; // akt. Fontsize
    if FS >= 18 then EXIT;   // max. größe
    inc(FS, 2);              // FontSize größe +2
    Memo.Font.Size:= FS;
    // ...
  end;
  // Strg und "-"
  if (ssCtrl in Shift) and (Key = vk_Subtract) then
  begin
    FS:= Memo.Font.Size;  // akt. Fontsize
    if FS = 10 then EXIT;  // min. Größe
    dec(FS, 2);   // Fontsize -2
    // ...
  end;