Como usar ENTER no lugar do TAB em uma GRID ???

Delphi

24/02/2004

Ola, Pessoal !

Gostaria de saber se é possivel usar o ENTER no lugar do TAB em uma GRID.

Obrigado a todos...


Doni

Doni

Curtidas 0

Respostas

Marco Salles

Marco Salles

24/02/2004

Doni, Primeiro Desabilite a Tecla Tab Na Grid(Isto é Opcional) Vá Em Options Do ObjectInspector Do DbGrid1 e Selecione dgtabs Em False
Depois Escreva o Código Abaixo:


procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_Return Then
 Key:=Vk_Tab;
end;


Se Quiser Corrijir Um Imperfeição Quando Dá Enter Ao Inves De Tab Ao Se Mudar De Campo Escreva O Código Abaixo:Opcional, Mas Vale a Pena Conferir

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
DbGrid1.EditorMode:=True;
end;



GOSTEI 0
POSTAR