procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#32 then Key:=#0;
end;

解决方案 »

  1.   

    我已经明确说了我的问题.
    要在OnKeyDown事件里处理.
    现在是有人要用选中的方法,使用空格键删除,删除后不留空格.
    OK
      

  2.   

    procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if Key=#32 then Key:=#46
    end;
      

  3.   

    能解决问题就可以,为什么非得OnKeyDown里处理?
    给我个理由先!procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if Key = ' ' then
      begin
        Key := #0;
        PostMessage(Edit1.Handle, WM_KEYDOWN, VK_DELETE, 0);
        PostMessage(Edit1.Handle, WM_KEYUP, VK_DELETE, 0);
      end;
    end;TEdit 和 TDBEdit 应当类似吧
      

  4.   

    确实也是,为什么非要在KeyDown里边屏蔽呢?
    不过你坚持要在KeyDown屏蔽也可以,Delphi已经预先设定了常数,你只要判断就行了:
    if Key=VK_SPACE then ...
      

  5.   

    谢谢各位的关心.
    我就要在OnKeyPress里处理这个动作,
    jabmoon(刺月) 
    你没有尝试就来发言,如果你的方法能够实现.我就不来这儿
    劳驾各位了
    :)