(Resolvido) Linha selecionada num dbgrid

[Alessandra (Jundiai)]

Pessoal, eu estou com um problema.

 

Na minha tela de cadastro, eu coloquei um botão onde executa uma rotina de cálculos. Mas, essa rotina só poderá ser executada, se o usuario tiver clicado em algum item no dbgrid.

Então tentei usar o selectecrows.count, mas o usuario não quer dar duplo clique para selecionar a linha.

Alguém sabe me informar, como saber se o usuario apenas clicou em uma linha desse grid ????????

[Jhonas]

Alguém sabe me informar, como saber se o usuario apenas clicou em uma linha desse grid ????????

Neste exemplo quando voce clica em uma linha de uma coluna, ele testa para saber se é a coluna escolhida

procedure TFMovCaixa.DBGrid1CellClick(Column: TColumn);
begin

   if DBGrid1.SelectedField.FieldName='TIPO' then
      begin
         .... comandos
      end;

   if DBGrid1.SelectedField.FieldName='CALC' then
      begin
         .... comandos
      end;

end;

É fácil saber a coluna que você está no DBGrid. Para isso vamos usar a propriedade SelectedIndex que retorna o número da coluna. Veja um exemplo:

procedure Tform1.DBGrid1ColEnter(Sender:TObject);
begin
   Edit1.Text := IntToStr(DBGrid1.SelectedIndex);
end;

Meu programa precisa processar algo quando o usuário clicar no DBGrid em um determinado form. O problema é que o DBGrid não possui o evento OnClick. É possível adicionar este evento no DBGrid? Solução: É possível sim. Afinal é muito simples. Siga os passos abaixo para resolver seu problema: - Monte seu form normalmente, colocando o DBGrid e demais componentes; - Vá na seção "private" da unit e declare a procedure abaixo:

private
  procedure DBGridClick(Sender: TObject);
- Logo após a palavra "implementation", escreva a procedure:

implementation
{$R *.DFM}

procedure TForm1.DBGridClick(Sender: TObject);
begin
  ShowMessage('Clicou no DBGrid.');
end;
- Coloque as instruções abaixo no evento OnCreate do Form:

procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.ControlStyle :=  DBGrid1.ControlStyle + [csClickEvents];
  TForm(DBGrid1).OnClick := DBGridClick;
end;

- E pronto. Execute e teste.

Observações

O segredo principal desta dica está OnCreate do Form. A primeira instrução ativa o evento OnClick. A segunda instrução acessa o manipulador do evento OnClick. Para isto precisamos tratar o DBGrid como se fosse Form, pois o evento OnClick está declarado como protegido (protected) na classe TDBGrid.

abraço