passer un TEdit en argument de procedure

salut les gars !


petite question surement bete mais je trouve pas :?

j'ai une procedure :

Code:

---

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:

---

1 2 3

var procedure inverserCouleur(objet: TObject);

---

et je pensais l'utiliser comme cela :

Code:

---

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

TObject n'a pas de propriété Color ou Font, donc ca ne marche pas. solution :
1. tu peux déclarer ta procedure pour qu'elle accepte un TEdit en paramètre
2. tu peux laisser sa signature telle quelle, mais faire plutot

Code:

---

1 2 3 4 5

if (object is TEdit) then begin (object as TEdit).Color := clRed; (object as TEdit).Font.Color := clRed; end;

---

Salut

tu dois faire un cast

Code:

---

1 2 3 4 5 6 7 8

procedure inverserCouleur(objet: TObject); begin if object is TEdit then with TEdit(objet) do begin .... end;

---

A+

hé bé ...
j'ai bien fait de poser la question car je ne cherchais pas du tout dans cette direction :?

le seul probleme c'est que cette procedure d'inversion de couleur doit fonctionner pour plusieurs types de composants :TEdit et TMemo

donc pour l'instant j'ai testé ca ca :

Code:

---

1 2	procedure inverserCouleur(objet:TEdit);overload; procedure inverserCouleur(objet:TMemo);overload;

---

mais ca m'oblige a declarer 2 fois la procedure :?

j'ai donc suivit votre exemple et j'ai fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

procedure inverserCouleur(objet: TObject); begin if objet is TEdit then begin with TEdit(objet) do begin if Color = clRed then begin Color := clWhite; Font.Color := clBlack; end else begin Color := clRed; Font.Color := clWhite; end; end; end else if objet is TMemo then begin with TMemo(objet) do begin if Color = clRed then begin Color := clWhite; Font.Color := clBlack; end else begin Color := clRed; Font.Color := clWhite; end; end; end; end;

---

mais ca fait plein de begin et de end et ca oblige aussi a avoir aussi 2 fois le meme code :cry:
c'est bete qu'on ne puisse pas utiliser un type générique :(
decidement plus j'avance dans delphi et moins je trouve ca pratique :cry:


merci

Peut-être qu'en passant par les messages tu y arriverais de manière plus générique :roll:.

Mais, je ne garantis pas le fonctionnement :mouarf: ...

L'idée étant d'envoyer l'ordre de changement de couleur, etc... via un SEND MESSAGE, en adressant le handle du composant.

Mais si Delphi c'est pratique ;)

Code:

---

1 2 3

if GetPropInfo(objet, 'Color') <> nil then TColor(GetObjectProp(objet), 'Color')) := clWhite;

---

(uses typinfo)

:) Bien vu cmen76, ça me plait bien comme solution. :bravo:

Je propose juste une simplification du code de Lorenzo77, car concernant l'exemple de TEdit et TMemo, en jouant un peu du CTRL+Clic, on se rend compte qu'ils hérientent tous deux de TCustomEdit.

Malheureusement, mais c'est parfaitement normal, TCustomEdit ne propose pas l'accès publique aux propriétés qui t'interessent, mais pour info on peut néanmoins accéder aux propriétés protégées d'une façon peu recommandable (mais bien pratique) en procédant comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

type TExplosedCustomEdit = class(TCustomEdit);   procedure inverserCouleur(objet: TObject); begin if objet is TCustomEdit then with TCustomEditHack(objet) do begin ... end; end;

---

En fait, on pourrait aller encore plus loin, puisque Font et Color sont définis dans TControl, mais bon, peut-être pas utile dans ton cas.

qi130 : SEND MESSAGE fait partie integrante de windows sauf erreur, je prefere les applications portables sur les autres systemes ...


cmen76 : merci :)
vu comme ca c'est sur que ca a l'air tout de suite + simple :mouarf:


DMO : ben justement, j'ai essayé de remplacer la declaration de la procedure par :
procedure inverserCouleur(objet: TControl);
puisque c'est a partir de TControl que l'on trouve la declaration de Color ... mais j'ai eu les memes erreurs :?

je vais essayer d'adapter ton code et celui de cmen76 mais ca va etre dur .... je le sens :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

type TExplosedControl = class(TControl);   procedure inverserCouleur(unControle: TControl); begin with TExplosedControl(unControle) do begin if Color = clRed then begin Color := clWindow; Font.Color := clWindowText; end else begin Color := clRed; Font.Color := clWhite; end; end; end;

---

(pas testé, ni même compilé !)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure inverserCouleur(unControle: TControl); var AColor : TColor; AFont : TFont; begin AColor := TColor(GetPropInfo(unControle, 'Color')); AFont := TFont(GetPropInfo(unControle, 'Font')); if AColor = clRed then begin AColor := clWindow; if assigned(AFont) then AFont.Color := clWindowText; end else begin AColor := clRed; if assigned(AFont) then AFont.Color := clWhite; end; end;

---

Tout cuit, là ! 8-)

Citation:

---

Envoyé par cmen76

Tout cuit, là ! 8-)

---

:ccool: bien joué RTTI man, ça marche t'as testé ?

Citation:

---

ça marche t'as testé ?

---

Le procédé fonctionne parfaitement dans une de mes applis ;
Le bout de code fourni, je viens de le modifier, il y aurait eu 3 erreurs de compil... Je laisse le soin à Lorenzo77 de nous confirmer que ça gazouille.