Você já viu uma coluna ou linha de menu ou tabela destacada para uma cor diferente quando o mouse passa o mouse sobre ela? Esse é o nosso objetivo aqui: destacar uma linha quando o ponteiro do mouse estiver dentro do alcance.
O componente TDBGrid Delphi é uma das jóias da VCL. Projetado para permitir que um usuário visualize e edite dados em uma grade tabular, o DBGrid fornece várias maneiras de personalizar a maneira como representa seus próprios dados. Por exemplo, adicionando cor às grades de seu banco de dados melhorará a aparência e diferenciará a importância de determinadas linhas ou colunas no banco de dados.
No entanto, não se deixe enganar por tutoriais simplistas sobre este tópico. Pode parecer fácil o suficiente apenas definir o dgRowSelect propriedade, mas lembre-se de que quando dgRowSelect está incluído no Opções, a dgEditing O sinalizador é ignorado, o que significa que a edição dos dados usando a grade está desativada.
O que você encontrará abaixo é uma explicação sobre como ativar o
OnMouseOver tipo de evento para uma linha DBGrid, para que o mouse seja gravado e localizado, ativando o registro para destacar a linha correspondente em um DBGrid.Como trabalhar com os componentes OnMouseOver e Delphi
A primeira ordem do dia é escrevendo código para o OnMouseMove evento em um componente TDBGrid para que ele possa localizar a linha e a coluna (célula) do DBGrid sobre a qual o mouse está passando o mouse.
Se o mouse estiver sobre a grade (manipulado no OnMouseMove manipulador de eventos), você pode usar o MoveBy método de um componente DataSet para definir o registro atual como aquele exibido "abaixo" do cursor do mouse.
tipo THackDBGrid = classe(TDBGrid);
...
procedimento TForm1.DBGrid1MouseMove
(Remetente: TObject; Shift: TShiftState; X, Y: Inteiro);
var
gc: TGridCoord;
início
gc: = DBGrid1.MouseCoord (x, y);
E se (gc. X> 0) E (gc. Y> 0) então comece
DBGrid1.DataSource. DataSet. MoveBy
(gc. Y - THackDBGrid (DBGrid1) .Row);
fim;
fim;
Código semelhante pode ser usado para mostrar em qual célula o mouse passa o mouse e alterar o cursor quando estiver sobre a barra de título.
Para definir corretamente o registro ativo, você precisa hackear um DBGrid e colocar suas mãos no protegido Linha propriedade. o Linha propriedade de um TCustomDBGrid O componente mantém a referência à linha ativa no momento.
Muitos Componentes Delphi possui propriedades e métodos úteis que são marcados como invisíveis ou protegidos para um desenvolvedor Delphi. Felizmente, para acessar esses membros protegidos de um componente, uma técnica simples chamada "hack protegido" pode ser usada.
Com o código acima, quando você move o mouse sobre a grade, o registro selecionado é aquele exibido na grade "abaixo" do cursor do mouse. Não é necessário clicar na grade para alterar o registro atual.
Destaque a linha ativa para aprimorar a experiência do usuário:
procedimento TForm1.DBGrid1DrawColumnCell
(Remetente: TObject; const Rect: TRect; DataCol: Inteiro;
Coluna: TColumn; Estado: TGridDrawState);
beginif (THackDBGrid (DBGrid1). DataLink. ActiveRecord + 1 =
THackDBGrid (DBGrid1) .Row)
ou (gdFocado no estado) ou (gdSelecionado no estado) então comece
DBGrid1.Canvas. Escova. Cor: = clSkyBlue;
DBGrid1.Canvas. Fonte. Estilo: = DBGrid1.Canvas. Fonte. Estilo + [fsBold];
DBGrid1.Canvas. Fonte. Cor: = clRed;
fim;
fim;
o OnDrawColumnCell O evento é usado para lidar com a necessidade de um desenho personalizado para os dados nas células da grade.
Você pode usar um pequeno truque para diferenciar a linha selecionada de todas as outras linhas. Considere que o Linha propriedade (inteiro) é igual ao ActiveRecord (+1) propriedade do Link de dados objeto que a linha selecionada está prestes a ser pintada.
Você provavelmente desejará desativar esse comportamento (o MoveBy método em OnMouseMove manipulador de eventos) quando DataSet conectado a um DBGrid está em Editar ou Inserir modo.