如何在DBGRID的最后一行屏蔽掉Down按键 同上 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure tForm1.Dbgrid1keyDown(sender:tobject;var key:word;shift:tshiftstate);begin if (key=vk_down) then begin query1.disablecontrols; query1.next; if query1.eof then key:=0 else query1.prior; query1.enablecontrols; end;end; 急! 在线等!做了一下午不明白! 如何让treeview表示的树所有的结点都处于展开状态 sendmsg怎么用? Delphi 数据库程序界面设计问题 有没有做塑胶注塑行业的富翁。想就业务流程沟通一下!参与就有分。 急!!!!!我如何播放自定义的声音? 在Delphi中怎样打开abc.mdb使用,如同打开abc.db一样呢? 请教高手:作一个key 盘生成器 关于组件问题,高手请进 高手莫笑:如何在showmessage中包含实数? 急,登录模块的疑问,在线等待 MSDE问题
begin
if (key=vk_down) then
begin
query1.disablecontrols;
query1.next;
if query1.eof then
key:=0
else
query1.prior;
query1.enablecontrols;
end;
end;