Discussion :

[tarmo57]

Salut tous j'aimerais savoir si il est possible et comment faire pour interdire la sélection de certaines ligne dans un dbgrid.

exemple j'ai dans un dbgrid des ligne avec un champs de base de donnée paradox actif = 1 et d'autres actif = 0

J'aimerais si possible faire un sélection sur les lignes actif = 1
et ne pas pouvoir sélectionner les actif = 0

Je ne suis pas sur que cela soit possible.
je vous remercies a l'avance

[Ph. B.]

Bonjour,

Ne vaut-il mieux pas filtrer les enregistrements "inactifs" ? et éventuellement rajouter une case à cocher pour les visualiser ?

S'il s'agit de sélections multiples, pourquoi ne pas ignorer les éléments "inactifs" sélectionnés lors de leur traitement ? éventuellement en prévenant l'utilisateur ?

[tarmo57]

Bonjour,

Ne vaut-il mieux pas filtrer les enregistrements "inactifs" ? et éventuellement rajouter une case à cocher pour les visualiser ?

S'il s'agit de sélections multiples, pourquoi ne pas ignorer les éléments "inactifs" sélectionnés lors de leur traitement ? éventuellement en prévenant l'utilisateur ?

ils sont inactif mais j'ai besoins de les montrer dans mon DBGRID avec un couleur de ligne gris clair déja la visuellement possible d'imaginer que la ligne est inactive .Je veux simplement assuré le coup en empêchent le clic sur cette ligne

[tourlourou]

Dans ce cas, je suppose que tu dois gérer le OnDrawCell pour griser selon le champ 'actif' ; aussi ne te reste-t-il qu'à gérer le OnMouseUp pour l'annuler si pas actif => pas de clic (je pense)

[tarmo57]

Dans ce cas, je suppose que tu dois gérer le OnDrawCell pour griser selon le champ 'actif' ; aussi ne te reste-t-il qu'à gérer le OnMouseUp pour l'annuler si pas actif => pas de clic (je pense)

Oui voila ,mais comment écrire pas de clic ??
merci de votre aide

[tourlourou]

On peut pê jouer sur OnSelectCell, en interdisant la sélection en affectant CanSelect à False.

Tu peux aussi t'inspirer de ce code, en utilisant MouseToCell pour avoir la ligne correspondante et avorter l'opération si inactif :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// pour éviter le clic en dehors des cellules éditables
procedure TForm1.sgCriteresMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  iCritereCol, iCritereRow: integer;
  P: TPoint;
  Rect: TRect;
begin
  if Button=mbLeft then
  with sgCriteres do begin
    // Rect des cellules éditables
    Rect.TopLeft := CellRect(FixedCols, FixedRows).TopLeft;
    Rect.BottomRight := CellRect(ColCount-1, Rowcount-1).BottomRight;
    P.X := X;
    P.Y := Y;
    // évite l'entrée en mode édition des cellule non éditables
    // et de la dernière de la ligne si clic au-delà
    if not PtInRect(Rect, P) then Abort;
  end;
end;

[Ph. B.]

Dans ce cas, je suppose que tu dois gérer le OnDrawCell pour griser selon le champ 'actif' ; aussi ne te reste-t-il qu'à gérer le OnMouseUp pour l'annuler si pas actif => pas de clic (je pense)

Sauf que quand on fait de la sélection multiple avec le clavier, l'évènement n'est pas déclenché...