Fórum Controle sobre Celulas do DBGrid? #235456
01/06/2004
0
Estou com uma duvida, na qual gostaria da ajuda de voces.
Em determinado Grid preciso manter o controle em tres celulas: A,B e C
sendo que quando estiver na celula A e for precionado Enter, o foco vá
para a celula B, e quando enter for precionado novamente o foco vá
para a Celula C.
O foco estando na celula C, apos precionado enter, o foco vá para a celula
A, da proxima linha.
Alguem poderia me passar uma dica sobre isto?
ja procurei no forum mas nao encontrei..nada...
Grato.
Macario
Curtir tópico
+ 0Posts
01/06/2004
Lucas Silva
www.clubedelphi.com.br/stringgrid.html
Qualquer dúvida pode me dá o toque.
T+,
Lucas!
Gostei + 0
01/06/2004
Rômulo Barros
Gostei + 0
04/06/2004
Xisto
manda este codigo pra mim (stringgrid).
Estou precisando liberar alteracao dos dados no StringGrid ou nao.
Pode mandar pelo MSN ou ICQ.
Gostei + 0
04/06/2004
Thematrix:reloaded
procedure TFrmMovLancNota.RxDBGrid1KeyPress(Sender: TObject;
var Key: Char);
Var WCol:integer;
begin
If Key = #13 then
begin
With RxDbGrid1 do
begin
If Col < Columns.Count then
begin
Col := Col+1 //Próxima Coluna
end
else
begin
If MDNotas.RecNo <> WRec then
MDNotas.Next //Proxima Linha
else
MDNotas.First; //Chegou no final do arquivo, volta
Col := 2;
end;
end;
end;
end;
Gostei + 0
05/06/2004
Xisto
Digamos que em uma das celulas espera-se um tipo especifico de informacao (data,numero,etc.) ai nosso belissimo operador faz o que se espera dele, ou seja, digita algo que nao tem nada a ver com o campo.
Qual a melhor forma, de gerar uma mensagem de erro (facil) e retornar à celula o valor anterior a digitacao ?
Gostei + 0
05/06/2004
Fabio.hc
Tente assim:
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then begin case DBGrid1.SelectedIndex of 0: DBGrid1.SelectedIndex:=1; 1: DBGrid1.SelectedIndex:=2; 2: begin Table1.Next; if Table1.Eof then Table1.Append; DBGrid1. SelectedIndex:=0; end; end; end; end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)