type THackDbGrid = class (TDbGrid) end;
procedure TForm1.CountDbGridLines; var NL: integer; begin //Transtypage du TDbGrid pour accèder aux //propriétés et méthodes protégées with THackDbGrid(DbGrid1) do begin { On divise la hauteur de la grille par la hauteur de la ligne 1 } NL : = GetGridHeight div RowHeights[0]; { Il faut aussi tenir compte de la présence de la barre de titres sinon le calcul serait faussé } if dgTitles in Options then dec(NL); end; Label1.Caption := Format('Nombre de lignes : %d', [NL]); end ;
procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then DbGrid1.Options : = DbGrid1.Options + [dgTitles] else DbGrid1.Options := DbGrid1.Options - [dgTitles]; CountDbGridLines; end ;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question