GESTION CONTACTS MAILS
beckerich
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
-
26 mai 2011 à 15:50
dubois77 Messages postés 675 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 19 février 2019 - 1 juin 2011 à 16:26
dubois77 Messages postés 675 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 19 février 2019 - 1 juin 2011 à 16:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/53211-gestion-contacts-mails
https://codes-sources.commentcamarche.net/source/53211-gestion-contacts-mails
1 juin 2011 à 16:26
C'est normal, car c'est un bouton en couleur dont les fichiers d'installation sont joints au zip :
ButtonWithColor.dcu
ButtonWithColor.pas
ButtonWithColor.res
Il faut les installer avant de compiler
cordialement
1 juin 2011 à 09:35
Le message
" bValiderCONTACT n'a pas de composant correspondant..."
s'affiche à la compilations !
Salutations
26 mai 2011 à 16:58
je suis d'accord avec toi, mais tu dois alors prévoir une procédure pour chaque composant que tu utilises, imagine un super composant complexe trouvé sur le net qui possède une liste en propriété, avec une procédure générale, pas de problème. Tu pourrais d'ailleurs l'ajouter à ton unité et t'en servir en cas de besoin.
Luc.
26 mai 2011 à 16:23
En fait pour ADD particulièrement, dans ton système il faudrait écrire :
ADD(L1.items,'toto') pour un TlistBox
ADD(M1.lines,'toto') pour un Tmemo
dans mon cas c'est beaucoup plus simple, sans réfléchir si c'est un items ou un lines :
ADD(L1,'toto')
ADD(M1,'toto')
cordialement
26 mai 2011 à 15:50
je regarde ton source SYSTUS à l'instant et ce qui me saute aux yeux :
procedure ADD(var O:TlistBox; z:string); begin O.Items.Add(z) end;
procedure ADD(var O:Tmemo; z:string); begin O.lines.add(z) end;
procedure ADD(var O:TcomboBox; z:string); begin O.items.add(z) end;
procedure ADD(var O:TstringList; z:string); begin O.add(z) end;
pourquoi ne pas faire une unique procédure
procedure ADD(O: TStrings; z: string); begin O.Add(z); end;
que tu appelles selon le composant
Add(Combo1.Items, 'toto') ou Add(Memo1.Lines, 'titi')...
je pense pareil pour CHG, ...
VIS(O: TWinControl); ... j'ai pas vérifié si la propriété Visible et la méthode BringToFront était accessibles.
et y regardant de plus près, il y en a certainement d'autres.
Ca peut diminuer le nombre de procédures. Tu as aussi peut-être de bonnes raisons de ne pas faire comme cela.
Bon travail.
Luc.