como setar o foco em determinada coluna do dbgrid

Delphi

05/03/2009

Olá pessoal. Eu tenho um DBGrid com 12 campos, um para cada mês do ano. Nesses campos eu digito um valor do tipo float e eu quero fazer com que ao digitar a tecla Enter, o foco seja setado na próxima coluna. Por exemplo: em fevereiro eu digito 200 e ao clicar Enter, o foco deve ser setado para Março automaticamente. Vlw!!


Junnsouzza

Junnsouzza

Curtidas 0

Respostas

Marco Salles

Marco Salles

05/03/2009

talves te atenda :


procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
Index:integer;
begin
if key = #13 then
  begin
    Index:= dbgrid1.SelectedIndex;
    dbgrid1.SelectedIndex:= dbgrid1.SelectedIndex+1;
    if  (index =  dbgrid1.SelectedIndex) then
      begin
        keybd_event(VK_Down, 0, 0, 0);
        dbgrid1.SelectedIndex:=0;
      end;
  end;
end;



GOSTEI 0
POSTAR