Discussion :

[Ardely]

Bonjour

Est-ce possible de faire passer un contrôle par une procédure ?
Par exemple Obj pourrait être 'Form1.listbox1' ou 'Form1.Richedit1'

Code :

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

1
2
3
4
5
6
7
8
 
procedure ContourObj( Obj:????);
begin
 
   Obj.canvas.pen.color := ColorRec;
  // == Form1.listbox1.canvas.pen.color := ColorRec;
 
end;

Merci pour votre aide.
Salutation

[Paul TOTH]

oui, mais tu dois déclarer Obj d'un type parent aux différents paramètres possibles...et ne l'utiliser que comme tel.

le problème dans ton exemple c'est que pour moi TRichEdit n'a pas de Canvas et TListBox l'obtient de TCustomListBox qui n'est pas un ancêtre de TRichEdit

[Ardely]

OK, à vrais dire j'ai voulu faire par ce moyen, une procedure pour mettre la bordure du composant en couleur !