你可以在procedure Tz_mxb.Edit1KeyDown(Sender: TObject; var Key:
这个事件里写啊
比如
procedure Tz_mxb.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then //如果按下回车的时候
这就可以了,写下你要做的事情
这个事件里写啊
比如
procedure Tz_mxb.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then //如果按下回车的时候
这就可以了,写下你要做的事情
解决方案 »
- 怎么得到数据库表的所有非空字段
- 三层结构中,在中间件的type library中声明函数,并在程序中写代码,后在客户端调用,出现‘服务器出现意外’,why?
- ShowMessage有何用处
- 为何在文本框不能输入,但将焦点移到别的文本框中然后以后去,则可以输入,readpnly=false enabled=true
- 高分求教,剪切板问题。快速散分!
- 如何遍历CheckList呢?
- 关于数据库连接的问题,在线等待
- 刚学delphi!!帮忙
- *********高手过来看啊,极具挑战的问题,给你一个字符串表示的函数名,如何得到它的函数指针.***********
- 我想在shape上弹出popupmenu,但位置老是找不准?怪!
- 在线等待;立即结贴。
- 得到“窗口句柄”后,怎样得到窗体内其他对象的句柄,(高手请进)
begin
case Key of
VK_RETURN: Button1.Click;
end;
end;