(Resolvido) Qual a columa dbgrid em que cliquei?

[Mario Lopes]

Boas

Necessito de quando clicar numa célula de uma grid o valor de outra célula da mesma grid seja alterado. Mas isto só se clicar na célula cujo campo da base de dados é almoços. Como é que consigo saber em que campo, ou célula dbgrid estou a clicar?

O código para alterar a outra célula é fácil:

queryapagar.edit;

dbgrid1.fields[4].ascurrency:=strtocurr('999');

queryapagar.post;

Obrigado

[Jhonas]

Como é que consigo saber em que campo, ou célula dbgrid estou a clicar?

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   // pega o nome do campo
   Label1.Caption := DBGrid1.SelectedField.FieldName;

   // pega o conteudo do campo
   Label2.Caption := DBGrid1.Columns.Items[DBGrid1.selectedindex].Field.AsString;

   // mudar o valor do campo da celula clicada
   if DBGrid1.selectedindex = 1 then
      begin
         query1.Edit;
         DBGrid1.Columns.Items[DBGrid1.selectedindex].Field.AsString := 'XXXX';
         query1.Post;
      end;
end;

abraço

[Mario Lopes]

Como é que consigo saber em que campo, ou célula dbgrid estou a clicar?

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   // pega o nome do campo
   Label1.Caption := DBGrid1.SelectedField.FieldName;

   // pega o conteudo do campo
   Label2.Caption := DBGrid1.Columns.Items[DBGrid1.selectedindex].Field.AsString;

   // mudar o valor do campo da celula clicada
   if DBGrid1.selectedindex = 1 then
      begin
         query1.Edit;
         DBGrid1.Columns.Items[DBGrid1.selectedindex].Field.AsString := 'XXXX';
         query1.Post;
      end;
end;

abraço

Obrigado Jonas