Comment creer une TDrawGrid sur un TTabSheet a l'éxécution ?
glt0732
Messages postés
17
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
29 juillet 2004
-
15 juil. 2004 à 04:15
glt0732 Messages postés 17 Date d'inscription mercredi 30 juin 2004 Statut Membre Dernière intervention 29 juillet 2004 - 15 juil. 2004 à 11:45
glt0732 Messages postés 17 Date d'inscription mercredi 30 juin 2004 Statut Membre Dernière intervention 29 juillet 2004 - 15 juil. 2004 à 11:45
A voir également:
- Comment creer une TDrawGrid sur un TTabSheet a l'éxécution ?
- Comment créer une application android - Forum VB.NET
- Comment créer un mot caché - Forum C# / .NET
- Erreur d'exécution 424 ✓ - Forum Visual Basic
- Erreur 424 "Objet requis" ✓ - Forum Visual Basic 6
- Message d'erreur 424: objet requis ✓ - Forum VBA Office (Excel, Word ...)
3 réponses
glt0732
Messages postés
17
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
29 juillet 2004
15 juil. 2004 à 11:32
15 juil. 2004 à 11:32
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
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 !
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
<table border=0 cellspacing=0 cellpadding=4 bgcolor=#E0E0E0><tr><td class=code>
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 !
glt0732
Messages postés
17
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
29 juillet 2004
15 juil. 2004 à 11:39
15 juil. 2004 à 11:39
Je vous le refait sans les commentaire c'est quand même mieux !
//Ici on ce trouve sur TForm1 (en clair c'est la maman !) Unit1
//Et maintenant voici sont enfant TForm2 - Unit2
//Ici on ce trouve sur TForm1 (en clair c'est la maman !) Unit1
procedure TForm1.NewFolioExecute(Sender: TObject);
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; Num:=PageControl1.PageCount; PageControl1.Pages[num-1].Caption:=F+IntToStr(Num); TDrawGrid.Create(TabSheet1); essai.Parent:=TabSheet1; end;
glt0732
Messages postés
17
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
29 juillet 2004
15 juil. 2004 à 11:45
15 juil. 2004 à 11:45
Je vous le refait sans les commentaire c'est quand même mieux !
Et au propres.
Voila et excuser moi encore pour tout c'est brouillon !
Et au propres.
//Ici on ce trouve sur TForm1 (en clair c'est la maman !) Unit1
procedure TForm1.NewFolioExecute(Sender: TObject);
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; Num:=PageControl1.PageCount; PageControl1.Pages[num-1].Caption:=F+IntToStr(Num); TDrawGrid.Create(TabSheet1); essai.Parent:=TabSheet1; end;
Voila et excuser moi encore pour tout c'est brouillon !