Dbgrid (tgridcoord)

[natalie]

Ola a todos,

Tenho uma dbgrid e para saber a linha e a coluna no evento mouseMove utilizo o DBGrid.MouseCoord( x, y ) .O meu problema é na grid tenho linhas que so são acessiveis puxando a scroll bar para baixo e ai o DBGrid.MouseCoord( x, y ) da errado e vai buscar os dados incorrectos.

alguém sabe como posso ter os dados correctos?

[Erso]

você esta querendo selecionar um registro ao clicar do mouse, ou realmente precisa fazer o esquema de mousemove, pra mostrar em algum lugar no momento que o mouse passa pelo registro???

[natalie]

é a segunda opcao....mas s houver uma ideia para a primeira ,aceito;)

[Erso]

:D op!!!

olha eu sei que seria esteticamente mais bonito fazer aparecer o registro em algum lugar quando se passar o mouse sobre o degrid, mas não fica muito funcional( fica sujeito a varios erros(na minha opiniao não faria)).

Quanto a segunda opção!!! é so fazer assim:

se você estiver usando um query:

OnDblClick:

sua_variavel:=Query1.FieldByName('CAMPO_QUE_VC_QUER').AsString;

pos quando você seleciona um registro em um dbgrid você move o ponteiro na memoria também!!!!!

se você estivar usando dbexpress nolugar do "Query" coloque ClientDataSet.

Espero ter ajudado

e boa soete!!!!!!

[natalie]

Como é que posso mover o ponteiro na memoria também?

:)

[s3c]

Olá, tente assim:

Defina

type TxGrid = class(TDBGrid);

Depois

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var z:TGridCoord;
begin
  z := DBGrid1.MouseCoord(x, y);
  if (z.x > 0) AND (z.y > 0) then
  begin
    DBGrid1.DataSource.DataSet.MoveBy(z.y - TxGrid(DBGrid1).Row);
    TStringGrid(DBGrid1).Col := z.x;
    TStringGrid(DBGrid1).Row := z.Y;
    Label1.Caption           := DBGrid1.SelectedField.AsString;
  end;
end;