Vous allez pas me dire que personne n'arrive a creer des TDrawGrid sur des TTabSheet.
Sinon j'ai essayer quelque solution mais sans succés, finalement en ecrivant ce message je me suis dit qu'il fallait peut etre aporté quelle que petite précision a mon affaire.
alors voici le code que j'ai fait :
//Ici on ce trouve sur TForm1 (en clair c'est la maman !) Unit1
procedure TForm1.NewFolioExecute(Sender: TObject); //Dans la barre d'outils on a un bouton intulé "Inserer un nouveau Folio"
begin
if (ActiveMDIChild is TForm2) then
(ActiveMDIChild as TForm2).AddFolio('Folio n°');
end;
//Et maintenant voici sont enfant TForm2 - Unit2
procedure TForm2.AddFolio(const F:String);
var
Num:Integer;
begin
TTabSheet.Create(PageControl1).PageControl:=PageControl1; //Creation de mon nouvelle onglet.
Num:=PageControl1.PageCount;
PageControl1.Pages[num-1].Caption:=F+IntToStr(Num); //Il aura un nouveau nom du style "Folio n° 2"
essai:=TDrawGrid.Create(TabSheet1); //Et a partir d'ici je crée ma nouvelle grille
essai.Parent:=TabSheet1; //Mais ca marche pas !
end; |
Il est vrais que j'avais oublier de preciser que c'etait une application MDI.
Cela a peut être sont importance, mais je sais pas, donc au cas ou je vous le dit comme ca on sera sur du résultat !
Sur ceux, je remercie ceux qui veulent bien m'aider !
|