Ouvrir plusieurs fiches dans mon applicarion OnShow TTimer

**FONKOU** · 31/03/2006, 09h45

Comment faire sous Delphi 5 de sorte à ouvrir une fiche, travailler dessus, puis, sans la fermer, ouvrir une autre fiche pour une consultation ou une saisie par exemple. Ensuite passer d'une fiche à une autre sans nécessairement fermer l'une ou l'autre ?

**Philippe Gormand** · 31/03/2006, 10h11

Bonjour.

Heu ! Franchement je ne comprends pas ton problème. Tu peux ouvrir
autant de fiches que tu veux et passer de l'une à l'autre sans problème.

Il te suffit de les ouvrir avec la méthode Show.
Par contre si tu l'ouvre avec la méthode ShowModal tu sera bloqué car
obligé de fermer la fiche pour passer à une autre.

Consulte l'aide de la classe TForm sur les méthodes Show et ShowModal.

**cfalcot** · 31/03/2006, 10h23

Bonjour,

Tu vas dans ton repertoir avec le poste de travail par exemple puis du ouvre le fichier *.PAS: ainsi tu n'ouvre que la fiche et pas le projet. Tu peut consulter, imprimer, copier/coller sans soucis...

**aityahia** · 31/03/2006, 12h30

lors de ouverture des fiches vous utiliser la fonction ShowModal utilise plutot Show

**Philippe Gormand** · 31/03/2006, 12h36

Franchement je me demande si quelqu'un a compris ton problème.

Parles tu de travailler sur plusieur fiches en mode conception, ou dans
programme compilé ?

A+

**FONKOU** · 31/03/2006, 17h44

Quand j'utilise Show pour ouvrir une fiche, le programme ne s'y arrête pas comme avec ShowModal, mais il se poursuit sur la ligne suivante.

**Philippe Gormand** · 31/03/2006, 17h58

C'est parfaitement normal. Mais je n'ai toujours pas compris ton
problème.

Il faut que tu sois très explicite, clair et précis pour expliquer ton
problème et la difficulté que tu rencontre pour réaliser ce que tu voudrais
faire.

De grâce, explique clairement le problème, où les gens se lasseront.

A+

**FONKOU** · 03/04/2006, 10h13

Bonjour

OK Je vais expliquer mon problème.

J'ai une fiche de saisie des lignes d'écritures comptables. Au cours de la saisie, un bouton me permet d'aller consulter le compte correspondant à une ligne d'écriture. L'ouverture de cette 2ème fiche prends un peu de temps parce qu'il fait plein de chose. C'est normal. Je voudrais donc ouvrir cette 2ème fiche une première fois pour consulter un compte, ensuite, sans la fermer, rentrer sur ma 1ère fiche continuer la saisie, revenir après pour consulter un autre compte sans rouvrir la 2ème fiche sinon cela prendrait à chaque fois un peu plus de temps

Merci

**aityahia** · 03/04/2006, 10h54

je pense que vous pouvez utiliser Show il faut juste revoir votre code pour que le Traitement s'arrete lorsque vous activé l'autre fiche tu peut utilisze les évenement OnActivate

**Philippe Gormand** · 04/04/2006, 10h42

Bonjour.

Tu peux utiliser un TTimer pour faire le traitement. C'est un truc que
j'utilise souvent. L'interret est de faire le traitement en temps masqué.
Si tu fait ton traitement dans l'événement OnActivate sans problème,
c'est une bonne solution. Si non tu peux faire comme ceci :

Place un TTimer sur la fiche avec la propriété Enabled à false par défaut.

Dans l'événement OnShow de la fiche, tu active le Timer (propriété
Enabled à True. Intervall à 500 ms par exemple.

Cela donne ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm2.FormShow(Sender : TObject);
begin
     Timer1.Enabled := True;
end;
 
procedure TForm2.Timer1Timer(Sender : TObject);
begin
     Timer1.Enebled := False;
 
     // Traitement
 
end;

L'interret c'est que tout le traitement se fera en temps masquer sans
gener quoi que ce soit.
Le Timer va fonctionner un peu comme un Thread et c'est beaucoup plus
simple à utiliser.

A+

**FONKOU** · 05/04/2006, 09h21

Merci

Je vais essayer et je vais vous rendre compte

Merci une fois de plus,

Merci pour le forum

**slimjoe** · 06/04/2006, 02h25

Envoyé par Philippe Gormand

Bonjour.

Tu peux utiliser un TTimer pour faire le traitement. C'est un truc que
j'utilise souvent. L'interret est de faire le traitement en temps masqué.
Si tu fait ton traitement dans l'événement OnActivate sans problème,
c'est une bonne solution. Si non tu peux faire comme ceci :

Place un TTimer sur la fiche avec la propriété Enabled à false par défaut.

Dans l'événement OnShow de la fiche, tu active le Timer (propriété
Enabled à True. Intervall à 500 ms par exemple.

Cela donne ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm2.FormShow(Sender : TObject);
begin
     Timer1.Enabled := True;
end;
 
procedure TForm2.Timer1Timer(Sender : TObject);
begin
     Timer1.Enebled := False;
 
     // Traitement
 
end;

L'interret c'est que tout le traitement se fera en temps masquer sans
gener quoi que ce soit.
Le Timer va fonctionner un peu comme un Thread et c'est beaucoup plus
simple à utiliser.

A+

Salut Philippe,

Je ne comprends pas l'utilité de faire le traitement dans le timer au lieu de le faire exécuter directement dans le OnShow. Est-ce que tu pourrais m'expliquer stp ?

Merci

- Slimjoe

**FONKOU** · 06/04/2006, 10h24

En plus ce n'est pas un traitement en arrière plan que l'on veut faire. Il s'agit d'afficher par exemple une fiche de saisie des lignes d'écriture comptables par exemple, se mettre à saisir des lignes et :

- soit valider la saisie et quitter pour retourner au menu,
- soit aller consulter des renseignements sur un compte, puis sans fermer la fiche de ce compte, revenir continuer la saisie des lignes

Comment procéder exactement sans utiliser ShowModal ?

**Philippe Gormand** · 06/04/2006, 15h21

Bon ! OK.
Je n'ai peut être pas compris le problème de FONKOU.
Mais pour répondre à slimjoe sur l'utilisation d'un timer. C'est un vieux
truc qui résoud pas mal de problèmes.

Supposons que le traitement à faire soit très long. Cela peut gêner le
reste de l'application si il est placé dans l'événement OnShow ou
OnActivate car la fiche ne rendra pas la main tant que le traitement ne
sera pas terminé.
Deuxièmme cas : Si le traitement fait un appel à SetFocus (par exemple)
alors que la fiche n'est pas encore réellement active, il y aura plantage
puisque l'on ne peut pas placer le focus sur un WinControle si il n'est pas
visible.

Donc, placer le code du traitement en question dans un TTimer qui se
declanchera après un délai comander par l'événement OnShow ou
OnActivate va permetre à la fiche de terminer son activation ou son
affichage, avant que le traitement commence.

Ensuite, si dans le traitement il n'y a pas de code qui peu bloquer le
déroulement de l'application, le traitement se fera dans la procedure de
l'événement Timer, en temps masqué, et on poura faire autre chose pendant ce temps.

Comme je l'ai montré :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm2.FormShow(Sender : TObject); 
begin 
     Timer1.Enabled := True; 
end; 
 
procedure TForm2.Timer1Timer(Sender : TObject); 
begin 
     Timer1.Enebled := False; 
 
     // Traitement 
 
end;

Il suffit de fixer un interval de 200 ms pour que ça marche. C'est un truc
que j'ai utilisé souvent.

**slimjoe** · 06/04/2006, 15h48

Envoyé par Philippe Gormand

Bon ! OK.
Je n'ai peut être pas compris le problème de FONKOU.
Mais pour répondre à slimjoe sur l'utilisation d'un timer. C'est un vieux
truc qui résoud pas mal de problèmes.

Supposons que le traitement à faire soit très long. Cela peut gêner le
reste de l'application si il est placé dans l'événement OnShow ou
OnActivate car la fiche ne rendra pas la main tant que le traitement ne
sera pas terminé.
Deuxièmme cas : Si le traitement fait un appel à SetFocus (par exemple)
alors que la fiche n'est pas encore réellement active, il y aura plantage
puisque l'on ne peut pas placer le focus sur un WinControle si il n'est pas
visible.

Donc, placer le code du traitement en question dans un TTimer qui se
declanchera après un délai comander par l'événement OnShow ou
OnActivate va permetre à la fiche de terminer son activation ou son
affichage, avant que le traitement commence.

Ensuite, si dans le traitement il n'y a pas de code qui peu bloquer le
déroulement de l'application, le traitement se fera dans la procedure de
l'événement Timer, en temps masqué, et on poura faire autre chose pendant ce temps.

Comme je l'ai montré :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm2.FormShow(Sender : TObject); 
begin 
     Timer1.Enabled := True; 
end; 
 
procedure TForm2.Timer1Timer(Sender : TObject); 
begin 
     Timer1.Enebled := False; 
 
     // Traitement 
 
end;

Il suffit de fixer un interval de 200 ms pour que ça marche. C'est un truc
que j'ai utilisé souvent.

Merci pour le truc

- Slimjoe

Ouvrir plusieurs fiches dans mon applicarion OnShow TTimer

Langage Delphi

Discussions similaires

Partager

Partager