Discussion :

[valoji]

Bonjour,

Mon evenement close ne fonctionne pas, pourtant la fenetre enfant est bien fermé

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TFic_attente_cpte.FormActivate(Sender: TObject);
begin
 Fic_MAJ_compte := TFic_MAJ_compte.Create(self);
 Visible := False;
 Fic_MAJ_compte.ShowModal;
 Fic_MAJ_compte.Free;
 Close;
end;

Valoji

[CharleLéo]

salut,

D'aprés ton code, la fiche "enfant" est Fic_MAJ_compte. Pour pouvoir la fermer, tu doit ferme un modalResult=MrYes dans cette fiche par l'intermédiaire d'un bouton

Code :

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

1
2
3
4
5
 
procedure TFic_MAJ_compte.BtFermerClick(Sender: TObject); 
begin 
 ModalResult:=MrYes
end;

A+

[valoji]

Code de la Fiche Accueil :

Code :

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

1
2
3
4
5
6
7
 
procedure TAccueil.Button1Click(Sender: TObject);
begin
     Fic_attente_cpte := TFic_attente_cpte.Create(self);
     Fic_attente_cpte.ShowModal;
     Fic_attente_cpte.Free;
end;

Ensuite ouverture de la fiche attente :

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
 
procedure TFic_attente_cpte.FormActivate(Sender: TObject);
begin
 Fic_MAJ_compte := TFic_MAJ_compte.Create(self);
 Visible := False;
 Fic_MAJ_compte.ShowModal;
 Fic_MAJ_compte.Free;
 Close;
end;
 
procedure TFic_attente_cpte.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
MessageDlg('fermeture', mtWarning, [mbOK], 0);
end;

Ensuite Code de la Fiche Mise à jour code

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
32
33
34
35
 
procedure TFic_MAJ_compte.FormCreate(Sender: TObject);
begin
     Query_General.SQL.Clear;
     Query_General.SQL.Add('update compte_ordonnateur set ctrser = "0"');
     if not (Query_General.prepared) then Query_General.prepare;
     Query_General.ExecSQL;
     If not Query_CTR.Active then Query_CTR.Active := True;
     If not Query_erreur.Active then Query_erreur.Active := True;
     Lerr.Caption := inttostr(Query_erreur.RecordCount) +' erreur(s) ';
     [color=blue]RemplirLstCpteRec;[/color]
     RadioGroup_ChoixMAJClick(Self);
end;
 
procedure TFic_MAJ_compte.[color=blue]RemplirLstCpteRec[/color]();
var
   I : Integer;
begin
 LstCpteRec := TStringList.Create;
 LstCtrser :=  TStringList.Create;
 i := 0;
 Fic_attente_cpte.Gauge_attente.MaxValue :=  Query_CTR.RecordCount;
 with Query_CTR do
 begin
      First;
      repeat
            Inc(i,1);
            Fic_attente_cpte.Gauge_attente.Progress := i;
            LstCpteRec.Add(Query_CTRctrnum.AsString +  Query_CTRctrlbu.AsString);
            LstCtrser.Add(Query_CTRctrser.asstring);
            Next;
      until (Eof);
      LstCpteRec.SaveToFile('D:\Temp\Lst');
 end;
end;

Mon problème est lorsque que je ferme la fiche Mise à jour compte, Le code au niveau de la fiche d'attente reprends bien : Fic_MAJ_compte.Free;. Mais le close ne fonctionne pas(Msgbox sur l'evenement onclose : Mais rien du tout s'affiche). Le modal de la fiche d'accueil reste toujours inactive.

J'ai bien essayer modalresult sur fiche d'attente et fiche d'accueil mais sans résultat.

Valoji

[Rayek]

Les Close, ModalResult et autres ne fonctionnent pas quand ils sont utilisées dans les événements OnActivate, OnShow et OnCreate (pas sur pour le dernier.

De plus le OnActivate s'enclenche à chaque fois que la fenetre à le focus, ce qui risque perturbé fortement ton programme (ca va réouvrir ta fenetre a chaque fois que lautre prendra le focus)

Utilisez l'événement OnActivate pour effectuer des actions particulières quand la fiche reçoit la focalisation. Une fiche devient active quand elle obtient la focalisation, par exemple quand l'utilisateur clique dans la fiche.

pour cette partie de code :

Code :

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

1
2
3
4
5
6
7
8
 
    repeat
            Inc(i,1);
            Fic_attente_cpte.Gauge_attente.Progress := i;
            LstCpteRec.Add(Query_CTRctrnum.AsString +  Query_CTRctrlbu.AsString);
            LstCtrser.Add(Query_CTRctrser.asstring);
            Next;
      until (Eof);

il te manque un Application.ProcessMessages juste aprés l'incrémentation de la progressbar (Fic_attente_cpte.Gauge_attente.Progress := i; ).

[valoji]

Il n y a pas besoin d'un application.processmessage, car progressbar.progress evolue normalement, sauf si derriére je dois mettre un label à un jour en même temps, par exemple.

Valoji