DBGrid

Delphi

20/08/2005

Pessoal, depois que mudei a propriedade readonly do DBGrid para editar dados dados ao clicar num botao de inclusao ou edicao, meu DBGrid ficou meio pirado. É o seguinte, sempre que vou mudar de coluna com a tecla <TAB>, ao invés de ir para a proxima coluna ele vai pra linha de baixo. Aí eu tenho que ir pra proxima coluna com o mouse ou voltar pra linha de edicao com a setinha do teclado e ir pra proxima coluna com a setinha tb.

Alguem sabe pq isso ta acontecendo?

Uso delphi 7 com interbase e componentes da paleta interbase.


Eduunai

Eduunai

Curtidas 0

Respostas

Marco Salles

Marco Salles

20/08/2005

, meu DBGrid ficou meio pirado


sempre que vou mudar de coluna com a tecla <TAB>, ao invés de ir para a proxima coluna ele vai pra linha de baixo


Alguem sabe pq isso ta acontecendo?


Verifique em colums Editor (Clik com o botão direito sobre a Grid) Verifique se Edting DbGrid1,Colums as Opções ReadOnly se esta em True)
Se estiver coloque todas em False

Verifiqe se o FieldsEditors (Click com o Botao direito sobre o componente
IbQuery ou IbTable) se os DataSetes estão todos com a Opção ReadOnly Em True.. Se estiver coloque -as com ReadOnly em False

Estas duas situaçoes são as possíveis causas para que a Tecla Tab se comporte desta maneira


GOSTEI 0
Eduunai

Eduunai

20/08/2005

Valeu, era isso msm, funcionou.

Brigadão.

Agora só mais 2 coisas...tem como ao sair do ultimo dbedit, ao entrar no dbgrid eu direcionar na segunda ou terceira coluna, pq a primeira já é preenchida automaticamente com a data...

e pra ao ivés de mudar de coluna com <tab> eu mudar com <enter>?

[]´s


GOSTEI 0
Marco Salles

Marco Salles

20/08/2005

tem como ao sair do ultimo dbedit, ao entrar no dbgrid eu direcionar na segunda ou terceira coluna


Tem várias maneiras...

procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
dbgrid1.SelectedIndex:=2; //Terceira coluna
end;


e pra ao ivés de mudar de coluna com <tab> eu mudar com <enter>?


[b:b113df2f2a]Várias maneiras também[/b:b113df2f2a]

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=Vk_Return Then
  begin
   keybd_event(Vk_Tab, 0, 0, 0);
   sleep(50);
   keybd_event(VK_tab, 0, KEYEVENTF_KEYUP, 0);
  end; 
end;



GOSTEI 0
Eduunai

Eduunai

20/08/2005

ae Marcos, tudo 100¬ agora. Valeu mesmo.

[]´s


GOSTEI 0
POSTAR