Tablesheet dynamique + Stringgrid
Bonjour tout le monde,
Je suis en train de créer une fiche qui comporte un pagecontrol et je crée dans un premier temps ma premiere page ou je rempli un stringgrid avec une table que j'ai ouvert précédement.
Dans la suite j'ai une fonction qui créée dynamiquement de nouvelles pages avec une stringgrid a l'interieur.
Le problème est que je n'arrive pas a dimensionner ma stringgrid pour qu'elle ai un nombre défini de colonnes par défaut sans la remplir forcément et j'aimerais ensuite rapeller ma fonction qui la colorie afin de créer une uniformiter entre les différentes pages.
Je pense qu'il existe aussi un parametre a passer pour que mes bouton de controle et autres fonction prennent effet sur ma page active.
Voici le code de création de ma nouvelle page dans mon pagecontrol
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| var
tbs : TTabSheet;
State: TGridDrawState;
begin
//On s'assure que Self est un descendant de TComponent
assert(Self is TComponent, 'L''objet Self n''est pas un descendant de TComponent');
tbs := TTabSheet.Create(self);
with Tstringgrid.Create(self) do
begin
Align := alClient;
Parent := tbs;
//StringGrid1.ColCount := stringgrid1.ColCount+10;
end;
tbs.PageControl := Classeur1;
tbs.Caption := 'Classeur n°' + intToStr(Classeur1.PageCount);
StringGrid1DrawCell(sender,20,20,Rect(10,10,10,20),State);
end; |
merci d'avance pour les réponses qui seront apporter.. Pour le moment je nage un peu avec toutes les créations dynamiques et les associations des différentes fonctions..
© Seb ®
