1,重新编译。PAS文件,即可CTRL+F9
解决方案 »
- 开发过三层系统的都进来看看
- 我不咂会发帖,希望大家提点建议或意见,谢谢了。
- CreateOleObject
- 教教我怎么用Delphi画方格图好吗?就是一般的方格图,比如100行100列的一个格子图就可以,谢谢您了
- 如何动态向dbgrid控件中添加combobox控件,添加内容为库中对应字段值
- 在编辑框中输入字符串,如何在access中查找有与该字符串相符字段的纪录。
- 问一个很简单的问题!!!!!!!!!!!!!!!请各位高手快快答复!!!
- 开始学Delphi看什么书。
- 新手求助,delphi中怎么得到exe文件自身的路径?
- 请求解决:已动态创建了GroupBox,Memo,CheckBox如何将CheckBox名添加对应的Memo
- 一个在csdn一个多月的问题。。。
- POS 机的通讯
3
Form1.KeyPreview := true;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_RETURN) then
SelectNext(ActiveControl, true, true);
end;
Shift: TShiftState);
begin
if (Key = VK_RETURN) then
SelectNext(ActiveControl, true, true);
end;
或者写一个函数来控制
函数里面用
procedure SetFocus(Key:Char;Temp:TWinControl);
begin
if (Key=#13) then
begin
Temp.setfocus;
end;
end
我现在已经找到方法了,改变CONTROL.PAS 里面一点代码就可以了!我不喜欢 Form1.KeyPreview := true;
关键是怎样编译生效!!!