Discussion :

[BIPBIP59]

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 :

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

OpenDialog->Execute();

ou un

Code :

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

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

[blondelle]

Salut BIPBIP59
Si tu dois ouvrir ta Form2 juste avant l'ouverture du TFileOpenDialog, tu peu essayer ceci

Code :

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

1
2
3
 
Form2->Show();
OpenDialog1->Execute();

il est aussi possible de mettre la Form2 au premier plan

Code :

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

1
2
3
 
Form2->BringToFront();
OpenDialog1->Execute();

[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 :

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

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.

[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 ....

merci encore c’était vraiment bien sympathique de votre part.

[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

[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)

[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

[BIPBIP59]

Pas de problème, en tout cas merci te ton aide et de ton intérêt à ma question.

[blondelle]

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

EnumDisplayMonitors()
GetMonitorInfo()

[BIPBIP59]

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 :

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
 
          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...

[blondelle]

Tu peu recuperer le Handle de l'ecran du moniteur comme ceci

Code :

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

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

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

[BIPBIP59]

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 :

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

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);

[blondelle]

Il faut que ce soit dans un Evenement de TFileOpenDialog ou du TFileSaveDialog

[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 :

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

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 !

[blondelle]

Salut ShaiLeTroll
Le probleme est qu'il utilise deux moniteurs de 19 pouces un pour l'appli un pour les boites de dialog

[BIPBIP59]

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

Code :

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

OpenDialog->Execute(Form1->Handle);

bien joué, ça marche !!!!!!!!!




Merci à tous !!!!!