salut les gars !


petite question surement bete mais je trouve pas

j'ai une procedure :
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
 
procedure inverserCouleur(objet: TObject);
begin
	with objet do
	begin
		if Color = clRed then
		begin
			Color := clWhite;
			Font.Color := clBlack;
		end
		else
		begin
			Color := clRed;
			Font.Color := clWhite;
		end;
	end;
end;
que je declare comme ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
var
	procedure inverserCouleur(objet: TObject);

et je pensais l'utiliser comme cela :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
inverserCouleur(Form1.txMasque);
txMasque est un composant TEdit mais voici les erreurs :
[Erreur] Unit1.pas(111): Identificateur non déclaré : 'Color'
[Erreur] Unit1.pas(114): Identificateur non déclaré : 'Font'
[Erreur] Unit1.pas(119): Opérateur ou point-virgule manquant

il n'y a donc pas moyen de faire une procedure simple ou je passe une cible en parametre ?

si a la place de with objet do je mets directement with Form1.txMasque do ... dans le code de la procedure la ca fonctionne mais je perds tout l'interet de la procedure


merci