Passer des paramètres à une procédure TObject

Bonjour,
Je souhaite appeler une procédure TObject en lui passant des paramètres.
La procédure:

Code:

---

1 2 3 4 5

procedure TForm1.HTMLGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin //... end;

---

Mon appel (qui ne marche pas:

Code:

---

TForm1.HTMLGridSelectCell(self,j,i,True);

---

de manière à utiliser tout le code qui est contenu dans cette procédure dans une boucle...

Merci pour votre aide :zoubi:
Phil.

bonjour,

deux erreurs dans cette ligne

Code:

---

1 2	TForm1.HTMLGridSelectCell(self,j,i,True);

---

le préfixe TForm1 ne peut être utilisé que sur une méthode de classe (class procedure), ce qui n'est pas le cas ici.

le paramètre "CanSelect" est envoyé par adresse (var) il n'est donc pas possible de donner une valeur constante (true)

Code:

---

1 2 3 4 5 6

var CanSelect: Boolean; begin HTMLGridSelectCell(Self, j, i, CanSelect); end;

---

Et le plus propre serait de faire l'inverse

Code:

---

1 2 3 4 5

procedure TForm1.HTMLGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if Sender is TStringGrid then MaMethodeCommune(TStringGrid(Sender), ACol, ARow); end;

---

au lieu de bidouiller un appel au gestionnaire d'évènement, tu fais un appel à la méthode interne
Surtout que tu passes Self comme paramètre du Sender alors que cela devrait être HTMLGrid

Code:

---

1 2 3 4

for ic := HTMLGrid.FixedCols to HTMLGrid.ColCount - 1 do for ir := HTMLGrid.FixedRows to HTMLGrid.RowCount - 1 do MaMethodeCommune(HTMLGrid, ic, ir);

---

Code:

---

1 2 3 4

procedure MaMethodeCommune(AGrid: TStringGrid; ACol, ARow: Integer); begin ... bla bla bla ... end;

---