2014-06-24 28 views
0

我有一個觸摸屏PC選擇項目的程序。 (它沒有鍵盤)如何設置TwwDBEdit輸入索引?

我想這樣做: 1.用戶單擊類型按鈕,類型代碼(如CD)將顯示在TwwDBEdit中。 2.用戶應使用我的程序中的數字鍵盤輸入完整的產品代碼(如CD2800)3.按回車鍵,它將搜索該項目並顯示詳細信息。

但我在2的問題,我已成功顯示在TwwDBEdit中的項目類型代碼,但是當我想輸入完整的項目代碼。我看到它會喜歡這個「2800CD」。它應該是「CD2800」。

如何設置輸入索引?

我的代碼是這樣的:

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

而且數字鍵盤只能用PostMessage的功能來發送號碼文本TwwDBEdit

+0

您可以通過確保函數'/ *從數據庫* /獲取類型代碼返回正確的值來輕鬆解決此問題。你是不是在推翻這個? –

回答

0

我懷疑光標的控制開始後剩餘你以編程方式設置文本。您可以通過以下兩種方式之一解決這個問題: -

  1. 設置在編輯文本後,使用wwDBEdit1.SelStart := Length(wwDBEdit1.Text);

  2. 在數字小鍵盤按鈕按下發送EM_SETSEL消息給編輯移動光標到最後。

+0

感謝您的幫助。我現在已經完成了我的工作。 – CloudCheung