delphi – 使用Ctrl Enter清空TMemo

发布时间：2020-12-15 04:34:52 所属栏目：大数据来源：网络整理

导读：我想要完成的事情：用户将文本输入TMemo框如果按Enter键,则会创建一个新行如果他们按Ctrl Enter键,它会将文本移动到另一个框并清空TMemo 我正在使用此代码[KeyPreview为True]： procedure TFMsg.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShi

我想要完成的事情：

>用户将文本输入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键,因为光标在第二行闪烁

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

解决方法

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

>创建操作列表或操作管理器,或重新使用现有操作列表.
>添加清除备忘录并移至下一个备忘录的操作.您需要检查活动控件是否真的是备忘录.
>为操作提供所需的快捷方式,按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键顺序中的下一个备忘录.但您的需求可能会有所不同.在这种情况下,我确信您需要为您的方案做些什么.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!