Bonjour à toutes et à tous,

Voici ma question, est t'il possible de faire plus simple que ceci (en bleu),

J'ai essayé ce qui est en rouge mais forcément un bug :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
if not cd2.Execute then exit else begin

{TextTrayIcon1.Color := cd2.Color;
TextTrayIcon2.Color := cd2.Color;
TextTrayIcon3.Color := cd2.Color;
TextTrayIcon4.Color := cd2.Color; }

 TextTrayIcon1.Color and TextTrayIcon2.Color and TextTrayIcon3.Color and
 TextTrayIcon4.Color := cd2.Color;
end;
Merci d'avance,

@+,

Cincap