在onkeydown事件中写: if (key=VK_DOWN)and(MT1.RecNo>=MT1.RecordCount) then //判断最后一条 begin With TDBGridEh(Sender) Do begin if (Selectedindex>=(FieldCount-1))and(BtnSave.CanFocus) then BtnSave.SetFocus; end; abort; end; if (key=VK_TAB)and(MT1.RecNo>=MT1.RecordCount) then begin With TDBGridEh(Sender) Do begin if (Selectedindex>=(FieldCount-1))and(BtnSave.CanFocus) then begin BtnSave.SetFocus; abort; end; end; end;我用的TDBGridEh,换成TDBGrid即可,不仅屏蔽了vk_down,而且屏蔽了vk_tab
begin
With TDBGridEh(Sender) Do
begin
if (Selectedindex>=(FieldCount-1))and(BtnSave.CanFocus) then
BtnSave.SetFocus;
end;
abort;
end; if (key=VK_TAB)and(MT1.RecNo>=MT1.RecordCount) then
begin
With TDBGridEh(Sender) Do
begin
if (Selectedindex>=(FieldCount-1))and(BtnSave.CanFocus) then
begin
BtnSave.SetFocus;
abort;
end;
end;
end;我用的TDBGridEh,换成TDBGrid即可,不仅屏蔽了vk_down,而且屏蔽了vk_tab
是否能得到焦点
是BtnSave.SetFocus,让btnSave获得焦点