DBEdit的OnKeyDown事件,空格键的屏蔽?

[rabbit]

一个DBEdit框,我选中全部内容,按空格键,实际内容删除了,但如何屏蔽这个空格,
使DBEdit不出现空格字符?
在发言前,请你先试一下.

[rabbit]

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

[tikkypeng]

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

[rabbit]

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

[softcool]

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

[musicwind]

能解决问题就可以，为什么非得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 应当类似吧

[jabmoon]

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