在dbgrideh里如何按回车键后跳到下一格！就像按了TAB键

[newabby]

虽然dbgrideh里有设置，但是如果设置了，在keypress里就收不到回车消息了。
因为想在按下回车后做一些事再跳到下一格，但是下面代码却没办法实现。
if Key = #13 then
begin

SendMessage(StockPlanList.Handle,WM_NEXTDLGCTL,0,0);
end;

[menggirl]

用别得控件吧
Tsgrid

[huazaijiajia]

没用过 dbgrideh

友情 UP

[angelface]

没用过, 不过总体上就是keypress里处理

[Shince]

这样就行：
procedure TForm1.dbgPrintListKeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key) = VK_RETURN then
if ActiveControl = dbgPrintList then
begin
TDBGrid(ActiveControl).SelectedIndex := TDBGrid(ActiveControl).SelectedIndex + 1;
Key := #0;
end;
end;

[viaboy]

Enter键代替Tab键.

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then

if ActiveControl = DBGrid1 then

begin

TDBGrid(ActiveControl).SelectedIndex := TDBGrid(ActiveControl).SelectedIndex + 1;

Key := #0;

end;

end;

[nicolas2003]

没用过这个，但是应该是在
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);中
写代码，
if DBGrid1.DataSource1.DataSet1.acive then
begin
if Key = #13 then
DBGrid1.DataSource1.DataSet1.next;
判断当到了最后条时，跳到第一条，或者你做其他处理；
end;

[sxtdxvb]

同意 Enter键代替Tab键

安装键盘hook

可实现enter代替tab

给出信箱

给你代码

[newabby]

谢谢,[e-mail]

[zhuangjunx]

[e-mail]

[newabby]

楼上的，用这样的语句
TDBGrid(ActiveControl).SelectedIndex := TDBGrid(ActiveControl).SelectedIndex + 1;
能达到效果，但是还有一个小问题，就是在最后一列的时候，按下enter，不会跳到下一行的第一列！

[Stiven_PFan]

DELPHI里面有没有类似VB中的SENDKEY函数，如果有的话，那就好办多了。


学习

[SunKinXing]

procedure TFrmDepotTOutGl.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key = #13)And(not (ActiveControl is TMemo)) then
if not (ActiveControl is TDbGrid) then
begin
Key := #0;
Perform(Wm_NextDlgCtl,0,0);
end else
if (ActiveControl is TDbGrid) then
begin
With TDbGrid(ActiveControl) do
if SelectedIndex < (FieldCount - 1) then
SelectedIndex := SelectedIndex + 1
else
SelectedIndex := 0;
end;
end;

[whisht]

KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = 13) or (Key = 9) then
PostMessage(Self.Handle, WM_KEYDOWN, VK_TAB, 0);
end

[newabby]

SunKinXing(飞火流星)
你那个代码只是在最后一列按回车是跳到本行的第一列，并不是新起一行的第一列

[newabby]

up啊。问题还没有解决