Delphi - obtener valor de un Bdgrid

   
Vista:

obtener valor de un Bdgrid

Publicado por niwdeloko (16 intervenciones) el 15/11/2007 00:07:56
en que evenbto tengo que hacer el codigo para obtener un valor de un dbrgid navegando con el cursor o con el mouse y con que propiedad...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:obtener valor de un Bdgrid

Publicado por E.T. (1107 intervenciones) el 15/11/2007 01:01:30
Tienes que poner en tres eventos los codigos que se muestran en que que te pongo abajo

Este es un evento del DbGrid, se llama OnColEnter
En este procedimiento se muestra un mensaje con el valor de la columna a la que entres
este procedimiento funciona con el mouse y con el teclado
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
showmessage(DBGrid1.Fields[DBGrid1.SelectedIndex].AsString);
end;

Este es un evento del DbGrid, se llama OnCellClick
En este procedimiento se muestra un mensaje con el valor de la columna a la que entres
este procedimiento solo funciona con el mouse
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
showmessage(Column.Field.Value);
end;

Este es un evento de la tabla, se llama AfterScroll
En este procedimiento se muestra un mensaje con el valor de la columna en la que estes si cambias de renglon, si no lo pones y le das al teclado con la flecha de "abajo" no se muestra nada
este procedimiento funciona con el mouse y teclado
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
showmessage(DBGrid1.Fields[DBGrid1.SelectedIndex].AsString);
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar