小弟不知怎样禁止RichEdit输入中文,请哪位大哥帮帮我!先谢过了!

現在回好像有點晚？ 您可否換個方式，限制它只能輸入數字或英文。

可在 TRichEdit 的 OnKeyPress 事件中執行如下的程式碼: [/code] procedure TForm1.RichEdit1KeyPress(Sender: TObject; Key: Char); begin   if IsDBCSLeadByte(Byte(Key)) then // 判斷 Key 是否為中文或全形字     Key := #0; end; [/code]    -- 向 KTop 的弟兄們致敬! 

To:hagar 兄    我試過RichEdit,當輸入的是中文時,完全不會觸發OnKeyPress 事件,而TMemo就會,後來發現

procedure TCustomRichEdit.CreateParams(var Params: TCreateParams);
const
  RichEditModuleName = 'RICHED32.DLL';
  HideScrollBars: array[Boolean] of DWORD = (ES_DISABLENOSCROLL, 0);
  HideSelections: array[Boolean] of DWORD = (ES_NOHIDESEL, 0);
begin
  if FRichEditModule = 0 then
  begin
    FRichEditModule := LoadLibrary(RichEditModuleName);
    if FRichEditModule <= HINSTANCE_ERROR then FRichEditModule := 0;
  end;
  inherited CreateParams(Params);
  CreateSubClass(Params, 'RICHEDIT');
  with Params do
  begin
    Style := Style or HideScrollBars[FHideScrollBars] or
      HideSelections[HideSelection];
    WindowClass.style := WindowClass.style and not (CS_HREDRAW or CS_VREDRAW);
  end;
end;

所以中文的KeyPress是否被 RICHED32.DLL 給攔走,跟本輪不到VCL的事件觸發,輸入英數字倒是沒問題,都會觸發KeyPress事件。 _______________________________________ 深藍的魚，祝您好運..........連連

感謝 Chance36 大大指正, 這下糗了!  -- 向 src="http://www.sweetbaby.net/~hagar/good.bmp">

hagar 兄     請別誤會啊！指正不敢啦！我只是看到這裏後，猜測TRichEdit的行為模式也只是純猜測而已，因為我還沒看懂啦，所以才會求教於你，前面貼文最後忘了用'？'問號以致造成誤會，是我的不是，請你別見怪才是。    _______________________________________ 深藍的魚，祝您好運..........連連

哪有没有哪位大哥可以解决此难题的呢？

小弟怎會見怪呢？< > 不過目前為止小弟也找不出解決之道! < > -- 向 KTop 的弟兄們致敬!