如何设置TwwDBEdit输入索引？

Question

我有一个触摸屏电脑程序来选择项目。 （它没有键盘）

我想这样做： 1.用户单击类型按钮，类型代码（如CD）将显示在TwwDBEdit中。 2.用户应使用程序中的数字键盘输入完整的项目代码（如CD2800）3。按回车键，将搜索项目并显示详细信息。

但是我在2.有一个问题，我已经在TwwDBEdit中成功显示了项目类型代码，但是当我想输入完整的项目代码时。我看到它会喜欢这个＆＃34; 2800CD＆＃34;。它应该是＆＃34; CD2800＆＃34;。

如何设置输入索引？

我的代码是这样的：

procedure TFrmSalesEntryTS.BtnFuncOnClick(Sender: TObject);
var
  type:String;
begin
  type := /*get type code from database*/
  wwDBEdit.Text := type;
end;

数字键盘只使用PostMessage函数将数字文本发送到TwwDBEdit

Answer 1

我怀疑在以编程方式设置文本后光标仍在控件的开头。您可以通过以下两种方式之一解决此问题： -

1. 在编辑中设置文字后，请使用wwDBEdit1.SelStart := Length(wwDBEdit1.Text);

2. 在数字小键盘按钮中，向编辑发送EM_SETSEL消息，将光标移动到末尾。