Bonjour,
Par ce code (par lequel je n'obtiens pas ce que je veux), je souhaiterais que le titre de la fenêtre d'exécution affiche un titre différent à chaque procédure :
Que pensez-vous de ce 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
36 procedure neufLettres; Strcopy(WindowTitle,'Mots de 9 lettres'); screensize.x:=50; screensize.y:=600; windowsize.x:=800; windowsize.y:=600; InitWinCRT; ...code... end; procedure huitLettres; Strcopy(WindowTitle,'Mots de 8 lettres'); screensize.x:=50; screensize.y:=600; windowsize.x:=800; windowsize.y:=600; InitWinCRT; ...code... end; {*** programme principal ***} begin if choix='9' then neufLettres; if choix='8' then huitLettres; ... code ... end.
Merci beaucoup.
Partager