Painel de líderes

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Caso interesse á alguem fiz para funcionar no lazarus procedure TFormOrcamento.DBGridDadosMouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer); var C, L, auxID: integer; auxB: TBookMark; begin //Pega a Coluna e a Linha pela posição X, Y (Sender as TDBGrid).MouseToCell(X, Y, C, L); if(L < 1)then Exit; try //Marca a posição do dataset auxB := DataSourceDados.DataSet.GetBookmark; //Desabilita controles para não ficar oscilando DataSourceDados.DataSet.DisableControls; //Vai para a linha desejada DataSourceDados.DataSet.RecNo := L; //Pega a informação auxID := DataSourceDados.DataSet.FieldByName('ID').AsInteger; //Adiciona a informação ao Hint (Sender as TDBGrid).Hint := 'ID: ' + IntToStr(auxID); //Mostra o Hint Application.ActivateHint(Mouse.CursorPos); finally //Volta para a posição inicial DataSourceDados.DataSet.GotoBookmark(auxB); //Limpa a marcação DataSourceDados.DataSet.FreeBookmark(auxB); //Reabilida controles DataSourceDados.DataSet.EnableControls; end; end;

Desculpe, estava fazendo outras tarefas com as letras maiúsculas. E quando chegou a resposta cliquei e respondi.

Baixei a unit. Está rodando 100%! Pretendo efetuar os testes de vazamento de memória.

Olá Comunidade. Recebi um e-mail pelo canal do Banrisul: [email protected], nos passando os seguintes dados para teste do PIX: "Com relação ao processo de homologação com a nossa API Pix, vocês podem iniciar utilizando os dados abaixo, em nosso ambiente de desenvolvimento.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.