Dans le code suivant:
un MessageDlgBox est créé mais je n'arrive pas à récupérer le click sur les boutons afin de leur associer une procédure à exécuter. Dans un messagedlg ordinaire on a
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 on EinvalidGraphic do begin FicheMessage:=CreateMessageDialog('Le fichier '+Listbox2.items[n2]+' est invalide !', mtInformation,[mbYes,mbNo,mbAll]); for i := 0 to FicheMessage.ComponentCount - 1 do if ( FicheMessage.Components[i] is TButton ) then with ( FicheMessage.Components[i] as Tbutton ) do begin FicheMessage.Width:=517; FicheMessage.Height:=150; Height:=40; If Caption='&Oui' then begin Left:=10; Width :=75; Caption:='Ignorer'; end; If Caption='&Non' then begin Left:=95; Width :=220; Caption:='Enlever le fichier de la liste de recherche'; end; If Caption='&Tout' then begin Left:=325; Width :=175; Caption:='Envoyer le fichier à la corbeille'; end; end; FicheMessage.ShowModal; FicheMessage.Release;mais dans le premier exemple, je suis embêté, un peut d'aide me serait grandement utile.
Code : Sélectionner tout - Visualiser dans une fenêtre à part if MessageDlg('Texte.....', mtConfirmation, [mbYes, mbNo], 0) = mrYes then //procédure à remplir
Merci.
Duan
Partager