5,388
社区成员
发帖
与我相关
我的任务
分享一个简单问题！
我想在DBGrid里用回车就能向后一个一个移动！就像TAb键一样怎么写？
if key=#13 then
begin
PostMessage(DBGridEh1.Handle,WM_KeyDown,VK_Down,0);
PostMessage(DBGridEh1.Handle,WM_KeyDown,VK_up,0);
PostMessage(DBGridEh1.Handle,WM_Keydown,VK_tab,0);
end;
这个怎么是上下移动？？
if key=#13 then
begin
PostMessage(DBGridEh1.Handle,WM_KeyDown,VK_Down,0);
PostMessage(DBGridEh1.Handle,WM_KeyDown,VK_up,0);
PostMessage(DBGridEh1.Handle,WM_Keydown,VK_tab,0);
end;
这个怎么是上下移动？？
...全文
请发表友善的回复…
发表回复
itlcx 2004-07-09
- 打赏
- 举报
form1.keypreview:=true;
procedure TForm1.FormCreate(Sender: TObject);
begin
if (active control is tdbgrid) then
begin
with tdbgrid(activecontrol) do
if selectedindex<(fieldcount-1) then
selectindex:=selectindex+1
else
selectindex:=0;
end;
end;
哈哈，给分吧
procedure TForm1.FormCreate(Sender: TObject);
begin
if (active control is tdbgrid) then
begin
with tdbgrid(activecontrol) do
if selectedindex<(fieldcount-1) then
selectindex:=selectindex+1
else
selectindex:=0;
end;
end;
哈哈，给分吧
才子鸣 2004-07-09
- 打赏
- 举报
up
liuqifeiyu 2004-07-09
- 打赏
- 举报
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
keybd_event(vk_tab,0,0,0);
keybd_event(vk_tab,0,keyeventf_keyup,0);
end;
begin
if key=#13 then
begin
keybd_event(vk_tab,0,0,0);
keybd_event(vk_tab,0,keyeventf_keyup,0);
end;
