问题1,在onkeydown中加入 if Key=Vk_Return then begin Key:=0; KeyBd_Event(Vk_Tab,0,0,0); 问题2 是什么意思?没太看懂
procedure TDBGrid1.KeyDown(var Key: Word; Shift: TShiftState); ... if Key = VK_RETRUN then Key := VK_TAB else if Key = VK_DELETE then (Sender as TDBGrid).DataSource.DataSet.Delete;...
if Key=Vk_Return then begin
Key:=0;
KeyBd_Event(Vk_Tab,0,0,0);
问题2 是什么意思?没太看懂
...
if Key = VK_RETRUN then
Key := VK_TAB
else if Key = VK_DELETE then
(Sender as TDBGrid).DataSource.DataSet.Delete;...
begin
if (Key = 13) and TDBGrid.EditorMode then
TDBGrid.Perform(WM_KeyDown,9,0)
end;
(Sender as TDBGrid).DataSource.DataSet.Delete;
这条语句有问题。
if key = #13 then
keybd_event(vk_TAB,0,0,0);
直接设置Options->dgTabs为True就可以了,而且可以实现统计等功能
keybd_event(vk_TAB,0,0,0);2、在KeyDown事件中添加
if Key = VK_DELETE then
(Sender as TDBGrid).DataSource.DataSet.Delete;
begin perform(WM_NextDLGCTL,0,0)
end
form.keypreview:=true;
begin
if key =#13 then
keybd_event(VK_TAB,0,0,0);
end;