TFileOpenDialog position d'initialisation

Version imprimable

19/04/2012, 17h37
BIPBIP59

TFileOpenDialog position d'initialisation

Bonjour,

J'utilise TFileOpenDialog et TFileSaveDialog sur un système multi-écran. Je place le composant sur la form et quand je fais un :

Code:

OpenDialog->Execute();

ou un

Code:

OpenDialog->Execute(Application->Handle);

Cette fenêtre de dialogue apparaît toujours sur l’écran principal et non pas sur l'écran secondaire, là ou mon application tourne.

Savez-vous comment je peux forcer la fenêtre de dialogue sur l'écran de mon application ?

Merci a tous

Cordialement
19/04/2012, 21h20
blondelle
Salut BIPBIP59
Si tu dois ouvrir ta Form2 juste avant l'ouverture du TFileOpenDialog, tu peu essayer ceci
Code:

1 2 3 Form2->Show(); OpenDialog1->Execute();
il est aussi possible de mettre la Form2 au premier plan
Code:

1 2 3 Form2->BringToFront(); OpenDialog1->Execute();
19/04/2012, 21h21
Guyt54
Je l'ai pas essayé, mais y a une solution ici qui fait plein sens:

http://www.delphigroups.info/2/21/290728.html

J'ai essayé ça:
Code:

1 2 3 4 5 6 7 void __fastcall TForm2::OpenDialog1Show(TObject *Sender) { TOpenDialog* dlg = (TOpenDialog*)Sender ; MoveWindow(dlg->Handle,0,0,0,0,true) ; Abort() ; }
Et ça positionne le OpenDialog à la postion 0,0 de la partie client du parent du dialogue.
20/04/2012, 08h11
BIPBIP59

Merci pour vos réponses, hélas cela ne fonctionne pas pour mon cas.
Pour la première solution proposé par blondelle je permet d’ajouter un complément d’information, car mon appli n’a qu’une seule form qui est exécutée sur l’écran secondaire, elle est déjà visible et active et c’est elle qui ouvre ma fenêtre de dialogue (par un simple menu). Malgré tout elle s’ouvre systématiquement dans l’écran principal.

Et la seconde solution de Guyt54 qui me convenait parfaitement, sauf que j’utilise un TFileOpenDialog ou un TFileSaveDialog et hélas contrairement au TOpenDialog, ils ne possèdent pas d’event OnShow :cry:....

merci encore c’était vraiment bien sympathique de votre part.
20/04/2012, 09h52
blondelle

Peut tu preciser quelle version de BCB tu utilise
Quand tu parle d'ecran, tu parle d'ecrans par exemple de 19 pouces, ou tu parle d'une fenetre sur laquelle s'affiche deux Forms
20/04/2012, 10h00
BIPBIP59

Salut blondelle

j'utilise Embarcadero® RAD Studio XE.

Et j'ai 2 écrans physiques 19 pouces, l'application tourne sur l'écran n°2 (le secondaire) et les fenêtres de dialogue s'affichent sur l'écran n°1 (le principal)
20/04/2012, 10h13
blondelle

Deux ecrans 19 pouces je l'ai compris a ta derniere reponse, malheureusement cela depasse mes competences, mais probablement que quelqu'un te proposera une solution ou une piste
Desole
20/04/2012, 10h17
BIPBIP59

Pas de problème, en tout cas merci te ton aide et de ton intérêt à ma question.
20/04/2012, 10h43
blondelle

J'ai fait quelques recherches apparament il faut utiliser les API

Citation:

EnumDisplayMonitors()
GetMonitorInfo()

Merci pour tes recherches, en fait j'utilise déjà ce principe pour forcer l'affichage des forms sur l'un ou l'autre des moniteurs :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
          int nb,num;
          Forms::TMonitor *m;
          TForm *form;
          if (  ((form=dynamic_cast<TForm*>(Owner))!=NULL)
              &&((nb=Screen->MonitorCount)>1)
              &&((num=(form->Monitor->MonitorNum+1)%nb)>=0)
              &&((m=Screen->Monitors[num])!=NULL))
          {
             Left=m->Left;
             Top=m->Top;
             Height=m->Height;
             Width=m->Width;
          } else if (form) {
             Left=form->Left+form->Width/4;
             Top=form->Top+form->Height/4;
             Height=form->Height/2;
             Width=form->Width/2;
          }

mais c'est pas suffisant pour les fenêtres de dialogue...

20/04/2012, 11h29
blondelle
Tu peu recuperer le Handle de l'ecran du moniteur comme ceci
Code:

1 2 HANDLE hndl = Screen->Monitors[NumeroMonitor]->Handle;
Regarde dans l'aide en ligne du TFileOpenDialog et duTFileSaveDialog sue HANDLE, sur TOpenDialog j'ai ceci

Citation:

Spécifie le handle de fenêtre de la boîte de dialogue.
__property HWND Handle = {read=FHandle, nodefault};
Description
La propriété Handle, qui fournit un accès au handle de fenêtre de la boîte de dialogue après un appel à Execute, peut être utilisée dans les gestionnaires d'événements OnShow et OnClose. Handle est initialisée à 0 après la fermeture de la boîte de dialogue

Il y a surement un Evenement sur lequel tu pourra adapter l'astuce de Guyt54

J'ai bien essayé ce matin d’initialiser la position de la fenetre de dialogue avec l'astuce à Guyt54 avant de faire l'Execute() mais ça marche pas non plus

Code:

1
2
3
4
5
6
7
8
9
10
 
            RECT r1,r2;
            OpenDialog->DefaultFolder=ExtractFilePath(s);
            OpenDialog->FileName  =ExtractFileName(s);
            GetWindowRect(FormMain->Handle, &r1 );
            GetWindowRect(OpenDialog->Handle, &r2 );
            MoveWindow(OpenDialog->Handle,
                        r1.left,r1.top, r2.right-r2.left,
                         r2.bottom-r2.top, true );
            OpenDialog->Execute(Application->Handle);

20/04/2012, 11h37
blondelle

Il faut que ce soit dans un Evenement de TFileOpenDialog ou du TFileSaveDialog
20/04/2012, 12h04
ShaiLeTroll

Je vois que ceci a été tenté OpenDialog->Execute(Application->Handle);,
mais il savoir que le Execute() sans paramètre, utilise Application->ActiveFormHandle ou Application->Handle.
Cela ne doit pas changer grand chose

as-tu tenté ?

Code:

OpenDialog->Execute(Form1->Handle);

Normalement OpenDialog->Handle AVANT OpenDialog->Execute est égal à Zéro !
Guyt54 a bien mis le code dans le OnShow un évènement du TOpenDialog
le TFileOpenDialog n'a pas de OnShow mais un OnExecute !

TOpenDialog = Win32 (95 à XP)
TFileOpenDialog = Vista !
20/04/2012, 12h16
blondelle

Salut ShaiLeTroll
Le probleme est qu'il utilise deux moniteurs de 19 pouces un pour l'appli un pour les boites de dialog
20/04/2012, 12h39
BIPBIP59

Citation:

Envoyé par ShaiLeTroll

Je vois que ceci a été tenté
as-tu tenté ?

Code:

OpenDialog->Execute(Form1->Handle);

bien joué, ça marche !!!!!!!!! :ccool:
:lahola:

Merci à tous !!!!!