Discussion :

[looping]

bonjour,

je voudrais savoir a quoi correspond la variable system "STATE".

J'ai récupérer un bout de code où cette variable est implémentée, mais je ne comprends pas comment cela fonctionne , car elle n'est déclarée nulle part ?

Code :

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

1
2
3
4
5
6
 
procedure TForm1.AdvStringGrid1CheckBoxClick(Sender: TObject; ACol,
  ARow: Integer; State: Boolean);
begin
  advstringgrid1.RowSelect[Arow] := State;
end;

merci

[tourlourou]

Je suppose que le paramètre State passé au Clic de cette CheckBox de la grille représente son état Checked : nom insuffisamment évocateur, pê ?

[ShaiLeTroll]

Ah les exemples TMS, pratique mais flou
Example 62 : Checkbox based disjunct row selection
en fait le State de OnCheckboxClick] assez mal décrit dans ladocumentation PDF est l'équivalent du State de la fonction AddCheckBox

[Dr.Who]

State est l'etat checked du checkbox


cela évite de coder (avec un TCheckBox standard) ceci :

Code :

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

1
2
3
4
5
procedure TFormX.CheckBoxClick(Sender: TObject);
begin
  if (Sender as TCheckBox).Checked then
    Afficher := (Sender as TCheckBox).Checked;
end;

En gros ça permet de s'absoudre d'appeler l'objet Sender ou l'objet CheckBoxN dans la procedure.

C'est l'objet lui même, qui passe plus de paramètres dans son gestionnaire d'evenement.

Analogue au OnDrawItem d'un TListBox par exemple ou l'on retrouve l'index de la ligne en cours de dessins, le Rect de cette zone de dessin et le status de l'item (focus, selected etc) ou encore au OnMouseMove des win-controles qui transmettent les valeurs X,Y du curseur de la souris.

Tout est accessible par le Sender (quasi vital pour un gestionnaire d'evenement, mais pas obligatoire), pour permettre de coder plus vite, on peux passer divers autres paramètres dans le gestionnaire.

Quand tu programmera tes propres composant tu te rendra vite compte que passer d'autre paramètre autre que le Sender permet d'augmenter la productivité de ton code.

Ici, dans ton cas, le paramètre State est renvoyé par l'objet lui même, donc déclaré dans cet objet (précisement dans la déclaration du gestionnaire d'evenement suivant :

Code :

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

TAdvStringGridCheckBoxClickEvent = procedure(Sender: TObject; ACol, ARow: integer; State: boolean) of object;

Ce qui permet de ne pas se coltiner ce code :

Code :

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

1
2
 
if AdvStringGrid1.Cell[a,b].CheckBox.Checked then

mais de faire :

Code :

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

if State then