Navegação no DBGrid
Galera, alguem sabe de alguma rotina que faça com que ao pressionar a tecla TAB dentro do DBGrid, pule para a próxima celua ao invés de pular para o proximo componente de Form.
A rotina abaixo faz isso com a tecla ENTER, mas com o TAB não funciona.
A rotina abaixo faz isso com a tecla ENTER, mas com o TAB não funciona.
procedure TfmEntradas.GridItensKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
If (Key = #09) Then
Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
begin
with (Sender as TDBGrid) do
if selectedindex > 0 then
selectedindex := selectedindex - 1
else
begin
DataSource.DataSet.Prior;
selectedindex := fieldcount - 1;
end;
end
else
begin
with (Sender as TDBGrid) do
if selectedindex < (fieldcount - 1) then
selectedindex := selectedindex + 1
else
begin
DataSource.DataSet.Next;
selectedindex := 0;
end;
end;
Key := #0
end;
end;
Vispo
Curtidas 0