[!] Suite d'Objet dynamique dans objet dynamiqueRésolu

Question

Re bonjour, J'ai une autre question ... tjs ds le m&#234;me sujet (suite de celui-ci )


Maintenant je d&#233;sire mettre mon TTabSheet et Mon TLabel dans une unit
apart de mani&#232;re &#224; la compiler plus tard en dll. Mais pour &#233;viter du
taper tout le code qui pr&#233;cise la position, la hauteur ... , je pensais
mettre toutes des donn&#233;e dans un fichier dfm que l'unit&#233; chargerais.

 J'avoue que je suis perdu et que je ne sais pas comment prendre le probl&#232;me (si ce n'est par les "cornes", mais o&#249; sont-elles )

 

 Amicalement

 Alexis

alexis2015 · Accepted Answer

Nickel, ca marche ...

Je m'explike ...

D'abord cr&#233;er une TFrame (cadre) avec tt les objet, fonctions, et
procedure comme on le souhaite ensuite, enregistrer le tout sous un nom
correct (ex : maframe.pas et .dfm).



 J'ai rajouter un "constrcutor" car dans mon application j'oblige
ma TIDFrame &#224; &#234;tre cr&#233;ee dans un TTabSheet, donc je rajoute ceci :



...

public

    constructor CreateTab(PC : TPageControl);

...

const TabPos =  1;



 implementation 



constructor TIDFrame.CreateTab(PC : TPageControl);

begin

with TTabSheet.Create(PC) do begin

  PageControl: =PC;   // !!! j'utilise la variable PC dans les 

  PageIndex:= TabPos; // param&#232;tres. Je n'utilise pas PageControl 

  Name:='IdTab';     // car il y a violation d'acces !!!

  Caption:='ID Tag';

   with  TIDFrame.Create(PC.Pages[TabPos]) do

   Parent: =PC.Pages[TabPos];

end;

end;

...



Apr&#232;s cel&#224;, je cr&#233;e une nouvelle application dans
laquelle j'inclu l'unit&#233; contenant ma Frame. Je cr&#233;e un TButton,
TPageControl et un TTabSheet (sinon erreur car ma TIDFrame a un
PageIndex = 1). Dans l'&#233;v&#233;nement OnClick du bouton je met :



procedure TForm1.Button1Click(Sender: TObject);

begin

TIDFrame.createtab(PageControl1);

end;



Et c'est tout !



Alexis 


PS : comment faire des cadres de fond gris pour les codes ?

yvescollet · Answer

hello,



ce que tu pourrais faire de cool, &#231;a serait de stocker comme tu le
proposes tes donn&#233;es pour la position de tes objets dans un fichier XML
(c'est plus facile de g&#233;rer toi m&#234;me un fichier XML plutot qu'un
ficheir .dfm).

ou encore un fichier .ini c'est good aussi.



bonne chance pour ton applic

Yves

jinh68 · Answer

Je pencherais plutot pour l'utilisation de WriteComponentResFile et ReadComponentResFile avec le dfm.

j!nH

alexis2015 · Answer

Merci pour vos solutions ....

juste 2 petites remarques ...

1) le WriteComponentResFile et ReadComponentResFile sont bien pour des composants or TTabSheet est une classe.

2) Je ne sais pas cmt m'y prendre avec le xml ... ca marche cmt ?



Alexis

jinh68 · Answer

le WriteComponentResFile et ReadComponentResFile sont bien pour des composants or TTabSheet est une classe.



TTabSheet descend bien logiquement de TComponent, c'est un
composant graphique.Bien sur que TTabSheet est une classe,vu qu' un
objet est une instance d'une Classe.



Tout &#231;a pour dire que tu peux bien utiliser WriteComponentResFile et
ReadComponentResFile,qui peuvent directement travailler avec le
dfm(m&#234;me format).






j!nH

alexis2015 · Answer

Ok merci, je viens juste de tester (car j'ai eu une journ&#233;e charg&#233;e ...)

Ok ca marche mais ca n'enregistre que les propri&#233;t&#233;s du TTabSheet et pas des ss-objet :s



Est-ce normal ...



Mnt j'ai d&#233;couvert la procedure Read/WriteComponent(Res) d'un TFileStream.

Mais j'ai une erreur lors de WriteComponentRes.

mon code : (les lignes qui foirent commencent par )



var t : TFileStream;

begin

t.Create('c:\resfile.crf',fmcreate or fmopenwrite);

t.Size:=SizeOf(ts1); // ts1 = TabSheet1

t.WriteComponent(ts1);

 // OU

//t.WriteComponentRes('tab',ts1);

t.Free;

end;



Alexis

alexis2015 · Answer

Je ne sais pas pourquoi main mnt ca marche ...

bref, je ne suis tjs pas plus avanc&#233; car je ne sais pas lire mes objets.

qqn pourrai me fournir un exemple (avec Stream si possible car je doit &#233;crire 12 objects) .



Alexis

jinh68 · Answer

Salut,




 t.Size:=SizeOf(ts1); 



Cette ligne risque de poser probl&#232;me. En effet SizeOf(ts1) renverra toujours 4.



Si tu veux vraiment fixer la taille(inutile, je pense que c'est fait
directement par WriteComponent et ReadComponent), utilises
ts1.InstanceSize.



Pour le reste, je vais essayer de faire un petit exemple...

j!nH

alexis2015 · Answer

Voil&#224; mon code pour l'&#233;criture  :



var t : TFileStream;

begin

t:=TFileStream.Create('cr.crf',fmcreate);

t.Size:=ts1.InstanceSize;

t.WriteComponentRes('tab0',ts1);

t.WriteComponentRes('tab1',idLabel4);

t.WriteComponentRes('tab2',idf);

t.Free;

end;



Maintenant c'est la lecture
qui pose probl&#232;me, car ReadComponentRes demande un param&#232;tre de type
TComponent et c'est tout ! mais cmt il sais que c'est ce composant la
qui doit lire ?



Alexis

jinh68 · Answer

Il le sait pa rapport &#224; la position dans le stream.



Lis les dans l'ordre o&#249; tu les as &#233;crit en transtypant par rapport au composant que tu veux lire (TTabSheet, Tlabel).

j!nH

alexis2015 · Answer

Je pense que j'ai trouv&#233; ma solution ...



TFrame que je cr&#233;e dans un TTabSheet.



Je teste et je donne des nouvelles



Alexis

[!] Suite d'Objet dynamique dans objet dynamique

11 réponses

Votre réponse

Discussions similaires