COMPOSANT GRILLE AVEC NOUVELLES PROPRIÉTÉS

Signaler
Messages postés
190
Date d'inscription
mercredi 3 septembre 2008
Statut
Membre
Dernière intervention
17 janvier 2009
-
 podi11 -
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/48843-composant-grille-avec-nouvelles-proprietes

Messages postés
37
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
6 avril 2016
1
Pourquoi Grille et pas TGrille ? = parce que le composant s'appelle Grille..
Voir --> Grille = class(TStringGrid)etc...
Messages postés
2
Date d'inscription
lundi 12 novembre 2007
Statut
Membre
Dernière intervention
7 janvier 2009

Bonjour,

Pourquoi Grille et pas TGrille ?
Messages postés
37
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
6 avril 2016
1
POUR DELPHI 7 :

If Not(Ord(Copy(Value,1,1))) In [49..59] Then Value:='';FCol:=Value; peut être remplacé par :
If Ord(Copy(Value,1,1)) In [49..59] Then FCol:=Value Else FCol:=''; ou
If Copy(Value,1,1) In ['0'..'9'] Then FCol:=Value Else FCol:='';
------------------------------------------------------------------------
PWideChar = essayer PChar... PAnsiChar
------------------------------------------------------------------------
Pour MessageDlg remplacez le par la fonction MessageBox ou remplacer dans Uses
Dialogs par QDialogs
>
Messages postés
37
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
6 avril 2016

Ces correctifs ne marchent pas...!
Afficher les 10 commentaires