Memo-Schriftgröße verändern per Tastenkombination

[Amateurprofi]

Ich mache solche Sachen gerne im Form.OnShortcut.

Beispiel:

Delphi-Quellcode:

procedure TMain.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var Key:TShortCut; Shift:TShiftState;
begin
   Shift:=[ssShift,ssCtrl,ssAlt]*KeyDataToShiftState(Msg.KeyData);
   Key:=Msg.CharCode;
   if Shift=[ssCtrl] then begin
      case Key of
         VK_Add      :  ShowMessage('Plus');
         VK_Subtract :  ShowMessage('Minus');
         else Exit;
      end;
      Handled:=True;
   end;
end;