jeudi 15 juillet 2004 à 11:32:50 |
Re : Comment creer une TDrawGrid sur un TTabSheet a l'éxécution ?
glt0732
|
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 !
|
|
jeudi 15 juillet 2004 à 11:39:58 |
Re : Comment creer une TDrawGrid sur un TTabSheet a l'éxécution ?
glt0732
|
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 procedure TForm1.NewFolioExecute(Sender: TObject);
begin
if (ActiveMDIChild is TForm2) then
(ActiveMDIChild as TForm2).AddFolio('Folio n°');
end; |
//Et maintenant voici sont enfant TForm2 - Unit2procedure 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; |
|
|
jeudi 15 juillet 2004 à 11:45:21 |
Re : Comment creer une TDrawGrid sur un TTabSheet a l'éxécution ?
glt0732
|
Je vous le refait sans les commentaire c'est quand même mieux ! 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 ! |
|
Cette discussion est classée dans : creer, éxécution, ttabsheet, tdrawgrid
 Répondre à ce message
 Sujets en rapport avec ce message
Creer dynamiquement un TTabSheet en le calquant sur un autre... [ par leobaillard ]
Bonjour, je pense que mon sujet n'est pas très clair, c'est pour cela que je m'explique : Je sui entrain de creer un navigateur web et je voudrais cr
OnClick sur l'image d'un TTabSheet [ par leobaillard ]
Bonjour, je voudrais savoir s'il est possible d'attribuer un évènement à un click sur l'image d'un TTabSheet ? Merci beaucoup !/// (: Léo :) \\\ http
creer un tableau de procedures ,possible ?? [ par rayssec ]
bonjour, tt d abord j adore bcp ce forum on y trouve ts les scripts qu on veut.enfin presque.. voila j ai ecris un programme permettant de creer
Objet dynamique dans objet dynamique [ par alexis2015 ]
Slt à tous, voilà mon premier souhait est de créer un TTabSheet dans un TPageControl (jusque là rien de mal, tout va bien, la suite ne va plu ...). Mo
Touches de raccourcie dans un PageControl [ par pierrot8131 ]
Bonjour à tous,je débute sous Delphi et j'aurais besoin d'un peu d'aide:Voilà, j'ai un PageControl ("Onglets") qui contient plusieurs TabSheet.je voud
juste un petit peu d'aide pour creer un jeu svp.... [ par ewertheimer ]
Voila je maitrises assez bien le delphi et j'aimerais creer un jeu en 3D mais j'ai juste un petit probleme c'est que je ne sais pas du tout comment af
creer un moteur de jeu 3D [ par ewertheimer ]
Bonjour,J'aimerais creerb un jeu en 3D sous delphi. Je mis connait pas mal en delphi mais j'aimerais juste savoir à quoi sert à creer un moteur de jeu
installer sur un autre pc apres avoir creer mon projet [ par tequilasurlaterre ]
bonjour atous je pense que je pose une question qui a deja ete pose, mais je ne comprent pas bien je que j'ai pu voir je suis debutant. cela n'expli
un packer d'exe [ par helmis ]
L'idée de creer un packer d'exe la demarche est la meme pour un selfextracter mais au lieu de creer le fichier sur le disque on le lance directement à
delphi reduction [ par titiyo ]
bonjours j'ai creer un projet avec delphi 7 et quand je veut pour le mettre dans la barre de tache ( - de la fenetre windows ) il fait comme si je le
 Livres en rapport
|
Derniers Blogs
 MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ?MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg
La prochaine session de MyTIC aura lieu à Namur, le 23 mars prochain. Pendant presque une heure, nous parlerons de SharePoint 2010. Voici un aperçu du programme.
Accueil : 17h30 Début de la session : 18h00 - Les nouvelles int...
Cliquez pour lire la suite de l'article par junarnoalg [MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA par cyril
Le deuxième keynote du mix fut très riche en contenu. Internet Explorer 9 Juste un après le lancement de Internet Explorer 8, Microsoft a dévoilé les nouveautés de Internet Explorer 9. Désormais, IE supportera HTML5, SVG et CSS3. L'élément ...
Cliquez pour lire la suite de l'article par cyril CERTIFICATIONS BETA .NET 4CERTIFICATIONS BETA .NET 4 par KooKiz
Les inscriptions pour les certifications beta .NET 4 ont commencé. L'inscription est offerte pour les examens suivants : - 71-511, TS: Windows Applications Development with Microsoft .NET Framework 4 - 71-515, TS: Web Applications Development with...
Cliquez pour lire la suite de l'article par KooKiz [MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2[MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2 par redo
J'imagine que la plupart d'entre vous connaissent bien et utilisent le service de traduction de Google, mais connaissez-vous celui de Microsoft . Microsoft Translator ? Effectivement, Microsoft nous annoncé le lancement version 2 de la Technologie Preview...
Cliquez pour lire la suite de l'article par redo
Logiciels
 Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|