Discussion :

[PhilLU]

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

Code :

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

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 :

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

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
Phil.

[Paul TOTH]

bonjour,

deux erreurs dans cette ligne

Code :

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

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 :

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

1
2
3
4
5
6
 
var
  CanSelect: Boolean;
begin
  HTMLGridSelectCell(Self, j, i, CanSelect);
end;

[ShaiLeTroll]

Et le plus propre serait de faire l'inverse

Code :

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

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 :

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

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 :

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

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