procedure form.EditKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#13,#8,#46]) then
begin
key:=#0;
MessageBeep(1);
Application.MessageBox('请输入数字!','提示',MB_OK);
end ;
如果输入的是字母，那么会提示一次“请输入数字”如果不小心没关系输入法，录了一个中文，那么提示两次请输入数字，有时提示三到四次，不懂如何完美解决。

------
我的编程起步于ktop，我将永远支持ktop

把edit 的输入法关闭，有属性设置的，ime xxxx 什么的，看一下就知道了

ntjrr,您好
個人認為 if not (key in['0'..'9',#13,#8,#46])? then key:=#0; 就好了
至於訊息的顯示改以用 Hint 的方式 ~~

你出現的問題在於 OnKeyPress 會很忠誠的對所輸入的字元作事件上的觸發，當輸入英文字母的時候僅對該字元作觸發，但若輸入中文時，因中文的組成並非單一字元，所以會依據當下收到多少個字元就會觸發多少次，所以才建議上述的作法。
當然，或許還有更好的解決之道。

我也在努力學習中，若有錯謬請見諒 ~

===================引 用 ntjrr 文 章===================
procedure form.EditKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#13,#8,#46])? then
begin
key:=#0;
MessageBeep(1);
Application.MessageBox('请输入数字!','提示',MB_OK);
end ;
如果输入的是字母，那么会提示一次“请输入数字”如果不小心没关系输入法，录了一个中文，那么提示两次请输入数字，有时提示三到四次，不懂如何完美解决。

------
我也在努力學習中，若有錯謬請見諒。

要不就干脆搞那个IME属性设置上一劳永逸的方法吧，IMopen的方法我知道，但关键之处就是在于imename的取得，大多数做法是列取当前输入法，然后让用户选择一个，这里面有几个问题，是每次登录时都要取，还是就取一次。就取一次的话在多用户操作时各自有各自喜欢的输入法如何处理？我的想法是在每个窗口中用个变量记下当前的输入法，但又不懂第一次在哪个事件中记录为好，如何记得到？谢谢！

------
我的编程起步于ktop，我将永远支持ktop

編輯記錄

我在我的機器上測試OK～不知道你的環境可否？試試吧！
<textarea cols="60" rows="10" class="delphi" name="code"> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var Msg:TMsg; begin if not (key in['0'..'9',#13,#8,#46]) then begin key:=#0; While Windows.PeekMessage(Msg,Self.Edit1.Handle,WM_KEYFIRST,WM_KEYLAST,PM_REMOVE) do key:=#0; MessageBeep(1); Application.MessageBox('number only','hint',MB_OK); end; end; </textarea>

編輯記錄

前辈，我的电脑也成功的。我想麻烦前辈简单的说明一下代码实现的原理，还有那个key:=#0为什么要出现两次？谢谢！

------
我的编程起步于ktop，我将永远支持ktop

PeekMessage是WINAPI也就是直接從應用程式的訊息佇列(Applicaton que)存取訊息後存入TMsg的結構中。
參數 WM_KEYFIRST 及 WM_KEYLAST 常數用來取出鍵盤緩衝的所有訊息，因此在發生KeyPress後如果Key值不是所要的值就將鍵盤緩衝區清乾淨。
另外多加一個Key := #0的原因是為確保Winapi將緩衝清乾淨多加上的。

編輯記錄