Dialog Examples/fr: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Quelques boîtes de dialogue pratiques
2	2
3	3		Ci-dessous quelques boîtes de dialogue pratiques non incluses dans la palette de composant :
4	4
5	5		- procedure ShowMessage (const Msg: string);
6	6		- function MessageBox (Text, Caption : PChar; Flags: Word): Integer;
7	7		- function MessageDlg (const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: LongInt): Word;
8	8		- function InputBox (const ACaption, APrompt, ADefault: string); string;
9	9		- function InputQuery (const ACaption, APrompt: string; var Value: string): Boolean;
10	10		- function PasswordBox(const ACaption, APrompt : String) : String;
11	11
12	12		Chacun de ces composants affiche une petite fenêtre contenant quelques informations et demande une réponse à l'utilisateur : d'appuyer sur un bouton, d'entrer un texte ou les deux. Le développeur n'a que peu de contrôle sur le format, la taille ou la position de ces boîtes de dialogue, mais peut influer sur leur contenu textuel.\
13	13		La raison pour laquelle il y a tant d'alternatives différentes , et de permettre différentes méthodes d'appel de composant et de recevoir des informations en retour depuis une procédure ou une fonction.
14	14
15	15		## Message Dialogs
16	16
17	17		Message dialogs affiche un message et attend qu'une touche soit appuyée ou un double-clic de la souris.
18	18
19	19		### ShowMessage
20	20
21		-	~~`Procedure ShowMessage (const Msg: string);`\~~
	21	+	``` pascal
	22	+	Procedure ShowMessage (const Msg: string);
22	23
23		-	~~`{ Déclarée dans Dialogs.pp }`~~
	24	+	{ Déclarée dans Dialogs.pp }
	25	+	```
24	26
25	27		La boîte de dialogue renvoyant un message la plus simple : elle prend une simple chaîne de caractères en paramètre, l'affiche dans une fenêtre stéréotypée, et attend un clic de souris ou une touche appuyée avec de continuer le programme.\
26	28		C'est un appel de procédure modal, tant que le bouton OK n'est pas cliqué ou validé par entrée la fenêtre reste en avant plan et garde le focus, interdisant tout autre manipulation dans le programme.
27	29
28	30		Exemple :
29	31
30	32		``` pascal
31	33		Program LazMessage;
32	34		Uses Dialogs;
33	35		begin
34	36		ShowMessage ('C''est un message de Lazarus.')
35	37		end.
36	38		```
37	39
38	40		### MessageBox
39	41
40		-	~~`Function Application.MessageBox (Text, Caption: PChar; Flags: longint) : Integer;`\~~
	42	+	``` pascal
	43	+	Function Application.MessageBox (Text, Caption: PChar; Flags: longint) : Integer;
41	44
42		-	~~`{ Défini dans Forms.pp comme une partie de TApplication; par conséquent doit être appelé par`\~~
43		-	~~` Application.Messagebox () ou en utilisant la construction 'with Application do ...'}`~~
	45	+	{ Défini dans Forms.pp comme une partie de TApplication; par conséquent doit être appelé par
	46	+	Application.Messagebox () ou en utilisant la construction 'with Application do ...'}
	47	+	```
44	48
45	49		Paramètres :
46	50
47	51		- Text : la chaîne de caractères qui est affichée dans la boîte de dialogue ;
48	52		- Caption : la chaîne de caractère affiché dans la barre de titre de la boîte de dialogue ;
49	53		- Flags : longint – une constante qui peut définir le contenu et le comportement de la boîte de dialogue, par exemple MB_ABORTRETRYIGNORE + MB_ICONQUESTION fera en sorte que le programme affiche l'icône d'un point d'interrogation dans la boîte de dialogue (?) accompagné de trois boutons : ABORT RETRY IGNORE.
50	54
51	55		La fonction renvoie un entier correspondant au bouton appuyé ; cette valeur peut être déterminée en faisant référence aux constantes \[IDOK..IDHELP\]
52	56
53	57		Cette fonction peut être appelée en tant que procédure (ie comme 'MessageBox()' au lieu de 'Variable := MessageBox()' comme on le ferait normalement pour une appel de fonction – voir exemple ci-dessous)
54	58
55	59		Exemple :
56	60
57	61		``` pascal
58	62		Uses Forms, Dialogs, LCLType;
59	63
60	64		Procedure DisplayMessageBox;
61	65		var reply, boxstyle: integer;
62	66		begin
63	67		with application do
64	68		begin
65	69		boxstyle := MB_ICONQUESTION + MB_YESNO;
66	70		reply := MessageBox ('Appuyez sur un bouton', 'MessageBoxDemo', boxstyle);
67	71		if reply = IDYES then MessageBox ('Oui', 'Répondre',MB_ICONINFORMATION)
68	72		else MessageBox ('Non', 'Répondre', MB_ICONHAND);
69	73		end;
70	74		end;
71	75		```
72	76
73	77		![](/wiki-images/c/c2/MessageBoxDemo.png)
74	78
75	79		![](/wiki-images/0/06/ReplyYes.png)
76	80
77	81		### MessageDLG
78	82
79		-	~~`function MessageDlg(const aMsg: string; DlgType: TMsgDlgType; `\~~
80		-	~~` Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;`\~~
81		-	~~`function MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType; `\~~
82		-	~~` Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;`~~
	83	+	``` pascal
	84	+	function MessageDlg(const aMsg: string; DlgType: TMsgDlgType;
	85	+	Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
	86	+	function MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType;
	87	+	Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
	88	+	```
83	89
84	90		Il existe deux versions de cette fonction, si vous omettez de renseigner 'Caption', ce sera la première fonction qui sera appelée et 'Caption' sera vide dans la boîte de dialogue.
85	91
86	92		C'est la plus complète et la plus aboutie des fonctions d'appel de boîte de dialogue, elle autorise au programmeur un contrôle maximal sur l'apparence de la boîte. Les paramètres définissent le type de boîte et son icône via une constante entière, et les boutons peuvent être spécifié via \[mbRetry, mbIgnore, mbAbort, mbCancel\]. Le paramètre HelpCtx n'est pas encore implémenté et doit être initialisé à zéro. La valeur de retour de cette fonction et la valeur correspondante au bouton appuyé, exprimée par un entier (voir les définitions plus bas, \[mrNone..mrAll\]).
87	93
88	94		Exemple :
89	95
90	96		``` pascal
91	97		Uses forms, dialogs, lcltype, controls;
92	98
93	99		procedure TryMessageDlg;
94	100		begin
95	101		if MessageDlg ('Question', 'Souhaitez-vous l''exécuter ?', mtConfirmation,
96	102		[mbYes, mbNo, mbIgnore],0) = mrYes
97	103		then { Exécuter la suite du programme};
98	104		end;
99	105		```
100	106
101	107		![](/wiki-images/3/30/Question.png)
102	108
103	109		## Boîtes de dialogue de texte
104	110
105	111		### InputBox
106	112
107	113		Boîte de dialogue de texte : affiche un message et attend que l'utilisateur entre une information sous forme de texte.
108	114
109		-	~~`Function InputBox(const ACaption, APrompt, ADefault : String) : String;`~~
	115	+	``` pascal
	116	+	Function InputBox(const ACaption, APrompt, ADefault : String) : String;
	117	+	```
110	118
111	119		Affiche une boîte de dialogue avec le titre et le message de sollicitation définis , et s'attend à ce que l'utilisateur entre un texte dans la boîte de dialogue. Une chaîne de caractère par défaut, peut être rentrée optionnellement. La chaîne de caractères entrée par l'utilisateur ou par défaut est retournée comme résultat de la fonction.
112	120
113	121		Exemple :
114	122
115	123		``` pascal
116	124		Uses forms, lcltype, dialogs, controls;
117	125
118	126		procedure TryInputBox;
119	127		var userstring: string;
120	128		begin
121	129		userstring := InputBox ('Get some text input',
122	130		'Please type in some information', 'Some sample text');
123	131		ShowMessage (userstring)
124	132		end;
125	133		```
126	134
127	135		### InputQuery
128	136
129		-	~~`Function InputQuery(const ACaption, APrompt : String;`\~~
130		-	~~` MaskInput : Boolean; var Value : String) : Boolean;`\~~
131		-	~~`Function InputQuery(const ACaption, APrompt : String;`\~~
132		-	~~` var Value : String) : Boolean;`~~
	137	+	``` pascal
	138	+	Function InputQuery(const ACaption, APrompt : String;
	139	+	MaskInput : Boolean; var Value : String) : Boolean;
	140	+	Function InputQuery(const ACaption, APrompt : String;
	141	+	var Value : String) : Boolean;
	142	+	```
133	143
134	144		Deux versions de cette fonction qui affiche un message de sollicitation et s'attend à une entrée par l'utilisateur de données textuelles; la première inclue un paramètre booléen MaskInput qui détermine si l'entrée de l'utilisateur est masquée par des astérisques dans la boîte de saisie du texte (comme pendant l'entrée d'un mot de passe ), tandis que la seconde omet cette propriété. Le texte entré par l'utilisateurest retourné dans le paramètre variable 'Value'; le résultat de fonction est un booléen qui retourne TRUE si le bouton OK était appuyé , ou FALSE si la boîte de dialogue était fermée par n'importe quel autre mécanisme (comme cliquer sur l'icône 'Close' sur la barre supérieure de titre ). Omettre le paramètre MaskInput est équivalent à le paramétrer à FALSE.
135	145
136	146		Exemple :
137	147
138	148		``` pascal
139	149		Uses forms, lcltype, dialogs, controls;
140	150
141	151		procedure TryInputQuery;
142	152		var QueryResult: boolean;
143	153		userstring: string;
144	154		begin
145	155		if InputQuery ('Question', 'Type in some data', TRUE, userstring)
146	156		then ShowMessage (userstring)
147	157		else
148	158		begin
149	159		InputQuery ('Don''t be silly', 'Please try again', userstring);
150	160		ShowMessage (userstring)
151	161		end
152	162		end;
153	163		```
154	164
155	165		![](/wiki-images/d/d0/MessageDlgQuestion.png)
156	166
157	167		![](/wiki-images/c/ce/DontBeSillly.png)
158	168
159	169		### PasswordBox
160	170
161		-	~~`Function PasswordBox(const ACaption, APrompt : String) : String;`~~
	171	+	``` pascal
	172	+	Function PasswordBox(const ACaption, APrompt : String) : String;
	173	+	```
162	174
163	175		Se comporte similairement à la fonction InputQuery avec MaskInput = TRUE; la différence est que le mot de passe qui a été saisi est retourné comme résultat de la fonction (comme InputBox).
164	176
165	177		## Constantes et types utilisés dans des dialogues de message
166	178
167	179		Plusieurs constantes et types appropriés pour l'usage avec les boites de dialogue sont prédéfinis dans la bibliothèque LCL :
168	180
169	181		Constantes de nombre entier pour définir les types de boutons et les icônes pour l'affichage dans MessageBox
170	182
171	183		``` pascal
172	184		const { Déclaré dans LCLType.pp }
173	185		MB_OK = $00000000;
174	186		MB_OKCANCEL = $00000001;
175	187		MB_ABORTRETRYIGNORE = $00000002;
176	188		MB_YESNOCANCEL = $00000003;
177	189		MB_YESNO = $00000004;
178	190		MB_RETRYCANCEL = $00000005;
179	191
180	192
181	193		MB_ICONHAND = $00000010;
182	194		MB_ICONQUESTION = $00000020;
183	195		MB_ICONEXCLAMATION = $00000030;
184	196		MB_ICONASTERICK = $00000040;
185	197		MB_ICONWARNING = MB_ICONEXCLAMATION;
186	198		MB_ICONERROR = MB_ICONHAND;
187	199		MB_ICONINFORMATION = MB_ICONASTERICK;
188	200		```
189	201
190	202		Constantes de nombre entier définissant la valeur de retour de MessageBox selon quel bouton a été appuyé
191	203
192	204		``` pascal
193	205		IDOK = 1; ID_OK = IDOK;
194	206		IDCANCEL = 2; ID_CANCEL = IDCANCEL;
195	207		IDABORT = 3; ID_ABORT = IDABORT;
196	208		IDRETRY = 4; ID_RETRY = IDRETRY;
197	209		IDIGNORE = 5; ID_IGNORE = IDIGNORE;
198	210		IDYES = 6; ID_YES = IDYES;
199	211		IDNO = 7; ID_NO = IDNO;
200	212		IDCLOSE = 8; ID_CLOSE = IDCLOSE;
201	213		IDHELP = 9; ID_HELP = IDHELP;
202	214		```
203	215
204	216		Défini si le premier, le deuxième ou le troisième bouton est celui par défaut
205	217
206	218		``` pascal
207	219		MB_DEFBUTTON1 = $00000000;
208	220		MB_DEFBUTTON2 = $00000100;
209	221		MB_DEFBUTTON3 = $00000200;
210	222		MB_DEFBUTTON4 = $00000300;
211	223		```
212	224
213	225		Le paramètre drapeaux de MessageBox est construit en ajoutant une constante de bouton \[MB_OK..MB_RETRYCANCEL\], une constante facultative d'icône \[MB_ICONHAND..MB_ICONINFORMATION\] et une constante facultative de bouton par défaut \[MB_DEFBUTTON1..MB_DEFBUTTON3\]
214	226
215	227		Ce qui est écrit dans Dialogs.pp pour l'utilisation dans MessageDlg, qui a besoin des paramètres Atype de type TMsgDlgType et AButtons de type TMSgDlgButtons :
216	228
217	229		``` pascal
218	230		{ Déclaré dans Dialogs.pp }
219	231		type
220	232		TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation,
221	233		mtCustom);
222	234		TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
223	235		mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
224	236		TMsgDlgButtons = set of TMsgDlgBtn;
225	237
226	238
227	239		const
228	240		mbYesNoCancel = [mbYes, mbNo, mbCancel];
229	241		mbOKCancel = [mbOK, mbCancel];
230	242		mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];
231	243
232	244
233	245		MsgDlgBtnToBitBtnKind: array[TMsgDlgBtn] of TBitBtnKind = (
234	246		bkYes, bkNo, bkOK, bkCancel, bkAbort, bkRetry, bkIgnore,
235	247		bkAll, bkNoToAll, bkYesToAll, bkHelp, bkClose
236	248		);
237	249
238	250
239	251		BitBtnKindToMsgDlgBtn: array[TBitBtnKind] of TMsgDlgBtn = (
240	252		mbOk, mbOK, mbCancel, mbHelp, mbYes, mbNo,
241	253		mbClose, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToALl, mbYesToAll
242	254		);
243	255
244	256
245	257		{ Déclaré dans Controls.pp }
246	258		const
247	259		mrNone = 0;
248	260		mrOK = mrNone + 1;
249	261		mrCancel = mrNone + 2;
250	262		mrAbort = mrNone + 3;
251	263		mrRetry = mrNone + 4;
252	264		mrIgnore = mrNone + 5;
253	265		mrYes = mrNone + 6;
254	266		mrNo = mrNone + 7;
255	267		mrAll = mrNone + 8;
256	268		mrNoToAll = mrNone + 9;
257	269		mrYesToAll = mrNone + 10;
258	270		mrLast = mrYesToAll;
259	271		```
260	272
261	273		------------------------------------------------------------------------
262	274
263	275		This page has been imported from the epikwiki [version](http://lazarus-ccr.sourceforge.net/index.php?wiki=DialogExamples).
264	276
265	277		---
266	278		From the Free Pascal wiki, page "Dialog Examples/fr", as it stood on 2020-02-13 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history