dbgrid ve dbeditlerde aynı formda enter'la dolaşmak

[must_sargin]

iyi çalışmalar,

procedure TFmArac.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13then begin Key:=0;Perform(WM_NEXTDLGCTL,byte(Shift=[ssShift]),0);end;
end;

procedure TFmArac.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
if DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then
DBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex + 1].Field.FocusControl
else
begin
DM.AracTable.next;
end;
end;

komutlarını giriyorum editler arası enter ile dolaşıyorum ama dbgrid üzerindeyken enter'a bastığımda hiçbir işlem yapmıyor. acaba nasıl çözebilirim? şimdiden teşekkürler.

[husonet]

viewtopic.php?p=5061#5061

Kolay Gelsin...

[must_sargin]

iyi çalışmalar,
yardımlarınız için teşekkür ederim. aynen istediğim işi yapıyor.