DBGrid - Pegar texto de uma c�lula

Question

Ol�!Gostaria de saber como pegar o texto de uma c�lula qualquer de um DBGrid. Eu sei que clicando com o mouse sobre a c�lula � f�cil, conforme abaixo:[code:1:f4f6b2528a]procedure Tform1.DBGrid1CellCli...

G1b4 · Answer

Caro wbb,  Ao inv�s de colocar um TLabel coloque um TDBText ligado ao mesmo TDataSource do TDBGrid....Espero te-lo ajudado  :wink:  !!!...

Wbb · Answer

Caro g1b4!Isto � s� um exemplo... N�o � a maneira que estou usando realmente....

G1b4 · Answer

Caro wbb,Foi malz... a pressa n�o me deixou ver a situa��o...Meu exemplo � pra apenas uma coluna...[quote:a5ac82d264=�wbb�]procedure TForm1.DBGrid1CellClick(Column: TColumn);begin  Label1.Caption:=Column.Field.Value;end;[/quote:a5ac82d264]Fa�a assim... Utilizando o seu exemplo acima:[code:1:a5ac82d264]procedure TForm1.DBGrid1ColEnter(Sender: TObject);begin  DBGrid1.OnCellClick:=DBGrid1.OnCellClick;end;[/code:1:a5ac82d264]Assim voc� executa o seu OnCellClick navegando sem o mouse....Espero AGORA te-lo ajudado !!!...

G1b4 · Answer

esquece viajei.... :oops:...

G1b4 · Answer

Coloque no form keypreview=true. Agora funciona :D ! O �ltimo que fiz, postei mas n�o testei. Fui testar depois. Mas esse eu testei....

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  Label1.Caption:=Column.Field.AsString;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  indice :integer;
begin
  if (Sender as TForm).ActiveControl is TDBGrid then
     if key in [vk_DOWN,vk_Up,vk_LEFT,vk_RIGHT] then begin
        indice:=DBGrid1.Columns.Grid.SelectedIndex;
        DBGrid1CellClick(DBGrid1.Columns.Items[indice]);
     end;
end;

:wink:

Wbb · Answer

Legal g1b4! Valeu!Agora sem querer abusar, estou com um outro problema... Num campo num�rico do banco de dados, que � mostrado no DBGrid, eu acessei o TFiled correspondente no Dataset e j� coloquei as propriedades DisplayFormat e FormatEdit em [b:17be35310e]#,0.00[/b:17be35310e], al�m de colocar em True a propriedade Currency do mesmo TField, tudo isso com o objetivo de que o n�mero seja mostrado como valor monet�rio. At� a� ok! S� que quando vou digitar um n�mero neste campo do DBGrid e tento colocar mais de uma v�rgula no n�mero, ele aceita. A�, ao tentar salvar este n�mero com formato inv�lido, o Dataset gera um erro. Afinal um n�mero com mais de uma v�rgula � inv�lido.Tem como impedir que o usu�rio consiga digitar mais de uma v�rgula? Ou ent�o se digitar, tem como reformatar o n�mero antes de ser gerado o erro?Valeu!wbb...

G1b4 · Answer

[quote:87dd0281f4=�wbb�]Tem como impedir que o usu�rio consiga digitar mais de uma v�rgula? Ou ent�o se digitar, tem como reformatar o n�mero antes de ser gerado o erro? [/quote:87dd0281f4]A primeira pergunta: voc� pode colocar uma variavel global do tipo inteira na sua Unit e no evento OnKeyPress fazer um contador, depois se o contador for=1, n�o permitir� mais a virgula.Segunda Pergunta: Claro que sim, mas como saber onde formato o valor? N�o tem como voc� saber qual � o valor pretendido. Neste caso, acho melhor gerar a mensagem do erro e limpar o campo...Espero te-lo ajudado  :wink: !!!...

Wbb · Answer

Quanto � vari�vel global eu j� tentei exatamente como voc� falou, e funciona. S� que tem um problema: Se o campo j� estiver preenchido, eu identifico se j� tem ou n�o v�rgula ao entrar no campo. At� a� ok. S� que ap�s entrar no campo, eu n�o tenho como saber o que foi digitado antes que seu conte�do seja salvo no BD. � a� que o erro ocorre e � pelo mesmo motivo que eu n�o tenho como gerar uma mensagem ao usu�rio.

...!?! � complicado...

Obrigado pela aten��o mesmo assim. Se descobrir algo e puder me enviar, seria extremamente �til.

Valeu!
wbb

G1b4 · Answer

Se o campo j� tem valor e for identificado v�rgula, voc� atribui � sua vari�vel global o valor 1. Assim n�o poder� digitar mais a virgula. S� que tem uma coisa, caso o usu�rio apague a v�rgula o campo n�o deixar� colocar nova virgula. Ent�o, no evento OnKeyPress voc� ter� que sempre fazer a verifica��o�, se tiver virgula contador = 1 (n�o permite uso de virgula), caso n�o contador = 0(permite uso de virgula).
:wink: