如何设定dbgrid不自动增加记录 判断keypress将不需要的键加控制条件 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在KeyDown里面写程序吧,限制VK_DOWN,VK_NEXT的作用。 procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);begin Abort ; end; 我刚看了源码,问题就在KeyDown的VK_DOWN里面。所以限制该键至关重要。尤其Dataset.eof是True的时候。 FormKeyDown里控制Down键或在TableBeforeInsert里判断它的下一条是否为最后一条纪录。 把ISEDITING设为FALSE,ROWSELECT为TRUE!呵呵! 看来没有其他办法了正确应该是:DataSet.Eof or dataset.recno=dataset.recordcount 如果是query问题又出来了!!!!!1 我这里有代码, 设置form的keypreview-true procedure Tform.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (table1.recno=table1.RecordCount )and (key=vk_down)then key:=0; end; 请问如何把TPaintBox上的图片保存为完整的BMP或者JPG文件? 如何在comobox中输入固定内容并且不给修改,变成灰色 数据库恢复后程序不能用,说连接失败或者表无效! 请教delete 的键盘码表! 大家MSN帐号的过来,我有一个Delphi群 打印问题???急啊,元旦都不能休息!!!!! 一个聊天软件,请帮忙测试 需求共享Flash播放控件 DBGrid的ScrollBar 我的QUERY抱错,关于用SQL语句向临时表中写数据。 哪里有李维的书下载! 报表组件有没有能自动换行的呀?
begin
Abort ;
end;
尤其Dataset.eof是True的时候。
控制Down键
或在TableBeforeInsert里判断它的下一条是否为最后一条纪录。
正确应该是:
DataSet.Eof or dataset.recno=dataset.recordcount
设置form的keypreview-true
procedure Tform.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (table1.recno=table1.RecordCount )and (key=vk_down)then key:=0;
end;