Discussion :

[Pascale38]

Bonjour,
un petit problème qui semble tout bête à la base !!
J'ai un TSaveDialog que j'affiche avec un "execute".
Je voudrai dans certain cas pouvoir fermer ce dialog par programme.
Comment faire ??? y'a pas de Close()...

merci de votre aide !!
Pascale38

[ShaiLeTroll]

Vu que le Execute est bloquant cela semble difficile
Faudrait un thread qui via un SendMessage soit simule le Clic soit envoi WM_CLOSE
Une bidouille Delphi 100% API Win32 pour écrire dans un Dialogue Ouvrir (là c'est celui de NotePad) pour envoyer sa propre valeur
Voir aussi Modifier un champ d'un TSaveDialog

Autre solution, voir si tu peux fournir ta propre WndProc et via un bool, tu pourrais forcer la fermeture, par contre, cela ne réagi que lors d'une action utilisateur, peut-être dès le déplacement de la souris mais je pense que WM_NOTIFY n'arrive que sur un VRAI action comme un clic sur un élément

[Pascale38]

Salut ShaiLeTroll !

ni SendMessage(monDialog->Handle, WM_CLOSE, 0,0);
ni PostMessage(monDialog->Handle, WM_CLOSE, 0,0);
ne ferme le dialogue...

Je vais regarder du côté de ton code pour simuler le clic sur ok.
merci !
Pascale38

[Pascale38]

J'ai bien compris l'idée de faire un
SendMessage(HwndButton, BM_CLICK, 0, 0);

mais je n'arrive pas à récupérer le HwndButton.
Tu fais ça :

Code :

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

1
2
3
4
 
lpszClass := 'Button';
lpszWindow := 'OK';
HwndButton  := FindWindowEx(HwndParent, HwndChildAfter, lpszClass, lpszWindow);

'OK' c'est la caption de ton bouton???
Ce qui veut dire que ça marche pas si le PC is in english ???
En ce cas pas la peine que je cherche plus loin dans cette solution, vu que appli internationale...

Arghhhh comment récupérer le handle de ce bouton !!!???

[Crayon]

Salut pour le bouton OK je crois que tu peux utiliser un truc du genre:

Code :

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

HWND HwndButton = GetDlgItem(HwndParent, IDOK);

[Crayon]

Voici un exemple plus complet qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    SaveDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::SaveDialog1Show(TObject *Sender)
{
    HWND HwndParent = GetParent(((TSaveDialog*)Sender)->Handle);
    HWND HwndButton = GetDlgItem(HwndParent, IDCANCEL); // Bouton Annuler
    SendMessage(HwndButton, BM_CLICK, 0, 0); // Envoie un Click sur le bouton Annuler
}
//---------------------------------------------------------------------------

J'ai mis le code dans le OnShow du TSaveDialog juste pour faire le teste. Je te fais confiance pour le mettre à la bonne place.