Discussion :

[dimi2]

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 :

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.

Que pensez-vous de ce code ?
Merci beaucoup.

[droggo]

Fie,

Tu as du code

Code :

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

1
2
3
4
5
screensize.x:=50;
screensize.y:=600;
windowsize.x:=800; 
windowsize.y:=600; 
InitWinCRT;

qui est dupliqué x fois, c'est l'occasion ou jamais de faire une procédure.

[dimi2]

A chaque procédure, je n'arrive pas à modifier le titre de la fenêtre d'exécution. J'aimerais que la fenêtre d'exécution ait pour titre "Mots de 9 lettres" lorsque la procédure "neufLettres" est lancée, et pour titre "Mots de 8 lettres" lorsque la procédure "huitLettres" est lancée.

[droggo]

Gie,

En revenant voir après avoir eu des doutes, je m'aperçois que j'ai oublié de répondre à la question.

You can change the title by storing a new string in WindowTitle before the CRT
window is created.

Here is an example:


StrCopy(WindowTitle, 'Hello World');

Le titre ne peut être modifié qu'avant la création de la fenêtre, or, je suppose que pour connaître le choix, tu as un petit affichage suivi d'une lecture, ce qui crée la fenêtre. Dès lors, le titre ne peut plus être modifié.

[dimi2]

Encore un rêve qui s'évanouit.....
Merci beaucoup pour vos réponses.

[Alcatîz]

Bonjour,

Encore un rêve qui s'évanouit.....
Merci beaucoup pour vos réponses.

Meunon meunon, il ne faut pas désespérer, l'API Windows peut encore t'aider dans ce cas :

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
Program Titres;
 
Uses Strings, WinCRT, WinTypes, WinProcs;
 
Var hFenetre : hWnd;
    Titre : Array [0..79] of Char;
 
Begin
  InitWinCRT;
  hFenetre := GetFocus;
  StrCopy(Titre,'Titre 1');
  SetWindowText(hFenetre,Titre);
  ReadLn;
  StrCopy(Titre,'Titre 2');
  SetWindowText(hFenetre,Titre);
  ReadLn;
  DoneWinCRT;
End.

Tu récupères le handle de la fenêtre avec GetFocus et tu changes le titre de la fenêtre à volonté avec la fonction SetWindowText.

[dimi2]

Merci mille fois. Où trouvez-vous toutes ces solutions ?

[Alcatîz]

Plaisir.

En fait, la fenêtre WinCRT est une fenêtre Windows comme les autres; ce qui est valable pour les autres l'est donc aussi pour elle.

[dimi2]

Bonjour,
Quels bons livres pourriez-vous me conseiller ?

[M.Dlb]

MSDN : http://msdn2.microsoft.com/en-us/library/aa383749.aspx



Ici tu as la liste des API Windows disponibles