Discussion :

[fz.saida]

bonjour j'ai une erreur 'impossible de rendre modale une fenêtre visible'
voila mon code il affiche un graphe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TFResultats.BoutonCalculeThermiqueClick(Sender: TObject);
  var
  listresultats: TobjectList;
  Horaire : boolean;
  SerieTemps, Serietheta: TLineSeries;
  NombrePoints : integer;
 
begin
listresultats:=ResultatsSelectionnes();
if (listresultats.Count= 1) then
begin
serietheta:=tlineseries.Create(self); //,Tobjetmultimetre a rjouter dans mon  constructeur
fichecalculethermique :=Tfichecalculethermique.Create(nil,OrdonneeSelectionnee,Tobjetresultats(listresultats.items[0]),TLineSeries(SerieTheta));
fichecalculethermique.ShowModal ; mon erreur est dans cette ligne 
if fichecalculethermique.ModalResult=mrOk then
begin
 NombrePoints := 5000;
  Horaire:=RadioAbscisseHoraire.Checked;
 SerieTheta.title:='temperature d''échauffement -'+PanneauOnglets.ActivePage.Caption;
 
//Changement d'onglet de temperature
  NouvelOnglet();
  CreerGraphique(PanneauOnglets.ActivePage);
  setlength(ProprietesOnglet,PanneauOnglets.ActivePage.TabIndex+1);
 
  ProprietesOnglet[PanneauOnglets.ActivePageIndex].Temperature.Actif:=true;
  ProprietesOnglet[PanneauOnglets.ActivePageIndex].Temperature.SerieTemperature:=serietheta;
  ProprietesOnglet[PanneauOnglets.ActivePageIndex].Temperature.Horaire:=Horaire;
 ChargerOnglet();
  end
end

est ce que y a une autre instruction a part showmodal pour résoudre ce problème

[Andnotor]

Dans l'inspecteur d'objet, mets la propriété Visible de fichecalculethermique à FALSE.

[fz.saida]

je suis une débutante dans ce langage ça veux dire quoi inspecteur d'objet

[ShaiLeTroll]

Cela correspond à la touche F11 : Inspecteur d'objets

Ou trouve cela dans Guide Pascal et Delphi > IV. Premiers pas, découverte de Delphi > IV-E. Premier aperçu de l'interface de Delphi > IV-E-4. L'inspecteur d'objets

[fz.saida]

effectivement j'ai mis dans l'inspecteur d'objet, la propriété Visible de ma fichecalculethermique à FALSE; mais j ai toujours le même problème

[ShaiLeTroll]

As-tu vérifié dans le Fichier DPR (ou Option du Projet, Fiches créées automatiquement), tu pourrais avoir deux instances de Tfichecalculethermique qui se mélange !

Dans le FormCreate du Tfichecalculethermique, tu ne touches ni à Visible ni à Show ?

[fz.saida]

d’après 'Fiches créées automatiquement'
j'ai cliqué sur Outils > Options > Options d'environnement > Barre d'outils des composants par contre au lieu de Barre d'outils des composants il y a inspecteur objet , palette d'outils ,option delphi
j'ai la version delphi xe2 je sais pas ou chercher exactement

[ShaiLeTroll]

Tu vas trop vite, la page contenait à la fin ceci

Créer automatiquement fiches & modules de données

Indique ou non de créer automatiquement les fiches. Lorsque cette option n'est pas cochée, les fiches ajoutées au projet après la première sont placées dans la liste des fiches disponibles et non dans la liste des fiches créées automatiquement.

Vous pouvez changer l'endroit où chaque fiche est listée en choisissant Projet > Options > Fiches.

[Andnotor]

effectivement j'ai mis dans l'inspecteur d'objet, la propriété Visible de ma fichecalculethermique à FALSE; mais j ai toujours le même problème

Le constructeur de Tfichecalculethermique est redéfini. Contrôle qu'il n'y a pas un Visible := TRUE dedans. Même chose dans l'événement OnCreate.

[fz.saida]

oui effectivement j'ai enlever de mon programme principale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  //Application.CreateForm(TficheCalculeThermique, ficheCalculeThermique);

aussi dans mon inspecteur objet de ma ficheCalculeThermique j'ai vérifier que la priorité de visible est false mais j'ai toujours ce problème

[Paul TOTH]

quel est le code de Tfichecalculethermique.Create ?

[ShaiLeTroll]

oui effectivement j'ai enlever de mon programme principale ... CreateForm ...

Un bon point, le risque de collision d'instance est donc écarté, reste l'autre problème le ou les constructor, celui que l'on voit gère 4 paramètres


Comme le souligne Paul Toth : quel est le code de Tfichecalculethermique.Create ?

Ce n'est que la 3eme fois que l'on te le fait remarquer :

Dans le FormCreate du Tfichecalculethermique, tu ne touches ni à Visible ni à Show ?

Le constructeur de Tfichecalculethermique est redéfini. Contrôle qu'il n'y a pas un Visible := TRUE dedans. Même chose dans l'événement OnCreate.

[fz.saida]

j 'ai pas compris ceci Le constructeur de Tfichecalculethermique est redéfini. Contrôle qu'il n'y a pas un Visible := TRUE dedans. Même chose dans l'événement OnCreate.

pour moi mon constructeur il est approprié a ma fiche thermique et je l'ai mise dans mes uses de ma fiche résultat alors je px l utiliser dedans mon problème c est la façon dans j appelle la fiche que j'ai créé en cliquant sur un bouton qui se situe sur ma fiche résultat .

au mode débogage il bloque sur le showmodal même si j ai vérifier que la propriété visibilité et pas active dans l'inspecteur objet .

concernant cette partie l'événement OnCreate il a 2 instructions dedans mais je lai laisser vide

[Andnotor]

Et si tu recherchais simplement le terme Visible dans ton unité

[Paul TOTH]

j 'ai pas compris ceci Le constructeur de Tfichecalculethermique est redéfini. Contrôle qu'il n'y a pas un Visible := TRUE dedans. Même chose dans l'événement OnCreate.

ton code indique "Tfichecalculethermique.Create(nil,OrdonneeSelectionnee,Tobjetresultats(listresultats.items[0]),TLineSeries(SerieTheta));" qui n'est manifestement pas le constructeur d'une fiche, nous pensons que ton erreur est dans ce code, en tout cas c'est là que j'irais vérifier en premier lieu.

[fz.saida]

j ai mis ceci pour que mon bouton soit visible dans certain cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
   //affichage du bouton  calcule thermique
   if (ListeDesResultats.Count=1) and  ((Ordonnee=CourantSecond) or (Ordonnee=CourantCat) or (Ordonnee=CourantFeeder) or (Ordonnee=CourantRailSol) or (Ordonnee=CourantRail) or (Ordonnee=CourantSol) or (Ordonnee=CourantCdpa) or (Ordonnee=CourantPorteur) ) then
    begin
    BoutonCalculeThermique.Visible:=true; //r
    BoutonCalculeThermique.Enabled:=true; //r
 
    end
  else
  begin
    BoutonCalculeThermique.Visible:=false; /// r
    BoutonCalculeThermique.Enabled:=false;  //
    end;

mais ceci ça concerne que mon bouton pas ma fiche le fait de clique sur ce bouton permettra d'afficher ma fenêtre

[fz.saida]

voila mon constructeur de ma fiche thermique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
constructor TficheCalculeThermique.Create(AOwner: TComponent; Resultat:TTypeResultat ;resultatcourant:TObjetResultats;SerieTheta: TLineSeries);
begin
//inherited Create(AOwner);
 self.I:= resultatCourant;
self.SerieTheta:= serietheta;
self.resultat:= Resultat;
end;

et celui de fiche resultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fichecalculethermique:=Tfichecalculethermique.Create(nil,OrdonneeSelectionnee,Tobjetresultats(listresultats.items[0]),TLineSeries(SerieTheta)); //items nimporte kel objet dans la liste (mon objet)

c est la même chose juste dans le 2eme je récupère des donné de ma fiche résultat actuel si ce n'ai eté pas la même chose mon programme ne compileras pas

[Paul TOTH]

et pourquoi le constructeur hérité est-il en commentaire ?

[ShaiLeTroll]

Je dirais même plus !
Le inherited est indispensable pour invoquer le constructeur ancêtre de TForm

D'ailleurs, comment charge-t-il le DFM ?
C'est le inherited Create qui appel le inherited CreateNew ... c'est là que le DFM est chargé !
A mon avis, si l'on regarde BoutonCalculeThermique il est à NULL durant le constructor, il ne prend de valeur qu'après le inherited Create

l'appel du OnCreate lui est effectué lors du AfterConstructor pour garantir un chargement complet de l'objet

Aurais-tu plusieurs constructor Create marqué en overload ?

[fz.saida]

effectivement je l'ai mise en commentaire car dans pas d'autre fenêtre dans le programme que je développe elle était en commentaire quand je l' ai rajouté j'ai plus cette erreur donc l'erreur était que cette partie étai en commentaire.
tu pourrais m'expliquer pourquoi quand j'ai remis cette partieinherited Create(AOwner); j'ai plus d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
constructor TficheCalculeThermique.Create(AOwner: TComponent; Resultat:TTypeResultat ;resultatcourant:TObjetResultats;SerieTheta: TLineSeries);
begin
inherited Create(AOwner);
 self.I:= resultatCourant;
self.SerieTheta:= serietheta;
self.resultat:= Resultat;
end;