variable system "state"

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:

---

1 2 3 4 5 6

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

---

merci

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ê ?

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

State est l'etat checked du checkbox


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

Code:

---

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:

---

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

---

Ce qui permet de ne pas se coltiner ce code :

Code:

---

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

---

mais de faire :

Code:

---

if State then

---