DBEdit的OnKeyDown事件,空格键的屏蔽? procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);begin if Key=#32 then Key:=#0;end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我已经明确说了我的问题.要在OnKeyDown事件里处理.现在是有人要用选中的方法,使用空格键删除,删除后不留空格.OK procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);begin if Key=#32 then Key:=#46end; 能解决问题就可以,为什么非得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 应当类似吧 确实也是,为什么非要在KeyDown里边屏蔽呢?不过你坚持要在KeyDown屏蔽也可以,Delphi已经预先设定了常数,你只要判断就行了:if Key=VK_SPACE then ... 谢谢各位的关心.我就要在OnKeyPress里处理这个动作,jabmoon(刺月) 你没有尝试就来发言,如果你的方法能够实现.我就不来这儿劳驾各位了:) 如何根据一个form对象的name,来获取这个对象 一个函数传递问题 求教dbgrideh memo 多表关联显示的问题 散分,儿子出生! 个人编软件,在网上卖,收入怎么样 高手,能不能帮我解决一下这个问题啊?先谢了 ------clientsocket同时向服务器发送多条查询信息,如何实现?------------- Self.Handle的值在运行时居然会改变 Wise的Uninstall问题 (求证)HOOK 文件日志的记录和提取 能在Access中动态创建表吗 如何将table或query输出为txt文本?
要在OnKeyDown事件里处理.
现在是有人要用选中的方法,使用空格键删除,删除后不留空格.
OK
begin
if Key=#32 then Key:=#46
end;
给我个理由先!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 应当类似吧
不过你坚持要在KeyDown屏蔽也可以,Delphi已经预先设定了常数,你只要判断就行了:
if Key=VK_SPACE then ...
我就要在OnKeyPress里处理这个动作,
jabmoon(刺月)
你没有尝试就来发言,如果你的方法能够实现.我就不来这儿
劳驾各位了
:)