procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#32 then Key:=#0;
end;
begin
if Key=#32 then Key:=#0;
end;
解决方案 »
- 多镜头拍摄的立体图像处理
- delphi 从一个Excel导入另一个Excel 如何向导出的那个excel插入任意一列
- 100分求一简单问题&SQL Server 2000相关&顶者有分&三天内结贴
- ListView设为vsReport时如何点击选定subitem?或vsIcon、vsList时如何设定行数和列数?
- 求救TDateTimePicker出错
- 十万火急,如何高速打印,如何能在98下运行xp下做的qreport程序?
- remote debugger server在什么情况需要使用?又怎么用?哪有文章介绍?
- 上次问了没得到答案这次再问
- 参与分的增加问题
- 1.用richedit做类似WORD文字处理器,怎么把当前所选文字的颜色和大小改变呢?只是当前选的文字,其它的不变!先来50分尝尝,信用至上
- 能在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(刺月)
你没有尝试就来发言,如果你的方法能够实现.我就不来这儿
劳驾各位了
:)