使用Ctrl + Enter清空TMemo

Question

我想要完成的事情:

• 用户将文本输入TMemo框
• 如果他们按Enter键,则会创建一个新行
• 如果他们按Ctrl+ Enter,则将文本移动到另一个框并清空TMemo

我正在使用此代码[KeyPreview为True]:

procedure TFMsg.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Key = $0D) then
  begin
    Key := 0;
    btnSendClick(Sender); //this moves the text and empties the TMemo box
  end;
end;

实际发生了什么:

• Ctrl+ Enter将文本发送到另一个框
• TMemo清空但似乎接受了Enter键,因为光标在第二行闪烁

任何帮助感激不尽.谢谢!

Answer 1

处理此问题的最佳方法如下:

1. 创建操作列表或操作管理器,或重用现有操作列表.
2. 添加清除备忘录并移至下一个备忘录的操作.您需要检查活动控件是否真的是备忘录.
3. 给动作提供你想要的快捷方式,CTRL+ ENTER.

请注意,您无需将操作附加到任何内容.仅仅存在就足以确保处理快捷方式.

对于使用修改键的复合键盘操作,使用操作快捷键总是最简单的,因此与较低级别的键盘处理代码保持一定的距离.

您的操作处理程序可能如下所示:

if ActiveControl is TMemo then
begin
  Memo := TMemo(ActiveControl);
  Text := Memo.Text;
  Memo.Clear;
  SelectNext(Memo, True, True);
  if ActiveControl is TMemo then
  begin
    Memo := TMemo(ActiveControl);
    Memo.Text := Text;
  end;
end;

在这段代码中,我假设有多个备忘录,并且文本从一个备忘录移动到Tab键顺序中的下一个备忘录.但您的需求可能会有所不同.在这种情况下,我确信您需要为您的方案做些什么.