DBGrid On CLick

Question

Gostaria de saber como fa�o para quando clicar em qualquer linha do BDGrid os dados dessa linha ir para um Edit.

Exemplo:

Fa�o uma busca e quero colocar o resultado dessa busca em um Edit

Agrade�o desde j�
Marcelo :)

Adriano Santos · Answer

Cara, me perdoe se n�o entendi o que quer, mas n�o seria o caso de usar um DBEdit?

Quando paramos em cima de um registro no grid, estamos em cima de um registro na tabela/query. Isso significa que vc pode colocar um dbEdit ligado na mesma tabela/query associado ao campo que deseja mostrar no �edit�.

Arc · Answer

no evento on create do form coloque :

DBGrid1.ControlStyle :=
DBGrid1.ControlStyle + [csClickEvents];
Tform(DBGrid1).OnClick := DBGrid1Click;

crie a procedure:
procedure DBGrid1Click(Sender: TObject);
em private

em

procedure Tform.DBGrid1Click(Sender: TObject);
begin
// sua rotina
end;

se vc realmente usa o edit ao inves do dbedit, acho que � uma solu��o aceitavel

Adriano Santos · Answer

Fiz um teste aqui com a dica do [b:51768cee03]arc[/b:51768cee03] e se caso voc� deseje pegar o conteudo do campo que o usu�rio clicou no DbGrid e mostrar no edit, seu procedimento onClick pode ficar com algo semelhante a isto:

procedure TForm1.DBGrid1Click(Sender: TObject);
begin
  Edit1.text := DBGrid1.SelectedField.Text;
end;

S� tomando cuidado com os tipos de dados diferentes pra ver se n�o vai dar nenhum erro.

_celo · Answer

O Processo funcionou do jeito que eu queria obrigado.Mas se eu tiver dois campo no DBGrid1 e quero colocar cara campo em um Edit como faria?Agrade�o desde j�.:)...

Carlosrm · Answer

_Celo,se tiver dois campos na dbgrid, uma sugest�o (caso n�o queira usar dbedit, conforme sugeriu o asrsantos):[code:1:99d1719203]procedure TForm1.DBGrid1Click(Sender: TObject);begin  Edit1.text := DBGrid1.Fields&#91;0&93;.AsString;  Edit2.text := DBGrid1.Fields&91;1&93;.AsString;end;[/code:1:99d1719203]carlosrm :wink:...

_celo · Answer

Quando coloque deu um erro de Access Violation. E agora?

:(

procedure TFrmEmprestar.DBGridClick(Sender: TObject);
begin
EdtEmpretimoAluno.text := DBGrid1.Fields[1].AsString;
EdtConAluno.text := DBGrid1.Fields[2].AsString;
end;

Esse � o meu codigo..

Gameiro · Answer

Em vez de pegar os dados do DBGrid pegue direto do seu Dataset

Ex.:

EdtEmpretimoAluno.text := datamodule1.cdsAluno.fieldbyname(�Campo2�).asstring;
EdtConAluno.text := datamodule1.cdsAluno.fieldbyname(�campo1�).asstring;

e se necess�rio fa�a as convers�es dos tipos que necessitar, de inteiro para string ou para float.

Ate mais, espero ter ajudado :wink:

Carlosrm · Answer

_Celo,se tiver dois campos exibidos na grid, os �ndices ser�o 0 e 1... Fields[0]...... Fields[1]...carlosrm...

_celo · Answer

Valew galera mais uma vez muito obrigado funcionou legal.:D...

F�rum DBGrid On CLick #289101