Discussion :

[Bernard B]

Bonjour,

Dans une application Delphi Rio en VCL 32 bits, j'utilise pour l'impression un appel Ole au WIA de windows.

Code d'appel :

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
procedure ShowPhotoPrintWizard(Files: TStrings);
var
  I: Integer;
  CommonDialog: OleVariant;
  Vector: OleVariant;
begin
  if not Assigned(Files) then Exit;
  CommonDialog := CreateOleObject('WIA.CommonDialog');
  Vector := CreateOleObject('WIA.Vector');
  for I := 0 to Files.Count - 1 do
    Vector.Add(Files[i]);
  CommonDialog.ShowPhotoPrintingWizard(Vector);
  Vector := Unassigned;
  CommonDialog := Unassigned;
end;

Tout fonctionne parfaitement, la fenêtre de dialogue de l’objet Ole s'ouvre au dessus de la fenêtre de mon application, mais dans certains cas ce dialogue part dessous mon application.
A ce moment là, l'utilisateur n'a plus la main et ne peut ni lancer ni abandonner l'impression.

Est-il possible d'afficher cet objet WIA dans un panel ou une fenêtre de mon appli que je puisse le gérer complètement ?

Merci

[ShaiLeTroll]

Cela ne se produirait pas le plus souvent en DEBUG ?
Même MessageDlg peut aussi bloquer en se cachant derrière.

Ayant aussi ce problème avec 'Excel.Application', j'ai bricolé un SetForegroundWindowAsync pour que le Excel passe devant mais dans le cas du ShowPhotoPrintingWizard, est-il facile de savoir le classe ou le titre de la fenêtre ?

Je ne l'ai pas sous la main mais j'avais aussi bricolé un truc avec un TThread qui surveillait les TMessageForm pour éviter les problèmes de perte de focus, par exemple, lorsque que l'on change d'application (ALT+TAB, Clic Systray ...), si un TMessageForm était visible, j'ajoutais un effet de clignotement pour que l'utilisateur voit le message (l'utilisateur pouvait navigueur entre 3 EXE pour son travail, lié entre eux par des invocations, passez de l'un à l'autre pouvait va savoir pourquoi passer les MessageDlg en arrière)

[Bernard B]

Non cela ne semble pas se produire plus en debug qu'en fonctionnement normal.
Lorsque le dialogue WIA est affiché, une manip hors de cette fenêtre semble l'envoyer derrière !
C'est assez pénible. Il y a aussi les MessageDlg aussi qui ont bien tendance à passer derrière lorsque l'on navigue entre plusieurs applis effectivement.
Pour eux j'ai résolu la question en faisant de l'affichage sur un Panel directement dans mon appli.

[Andnotor]

Tu peux gérer le Z-Order; demander à la fenêtre de toujours se placer derrière celle d'impression.

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
type
  TForm1 = class(TForm)
  private
    procedure WMWindowPosChanging(var Message :TWmWindowPosChanging); message WM_WINDOWPOSCHANGING;
  end;
 
procedure TForm1.WMWindowPosChanging(var Message: TWmWindowPosChanging);
var
  Wnd :hWnd;
begin
  Wnd := FindWindow('NativeHWNDHost', 'Imprimer les images');
 
  if Wnd <> 0 then
    Message.WindowPos.hwndInsertAfter := Wnd;
end;

[Bernard B]

Merci Andnotor, c'est exactement ce que je cherchais.
Cela fonctionne parfaitement pour les premiers tests.
Merci

[ShaiLeTroll]

Wnd := FindWindow('NativeHWNDHost', 'Imprimer les images');

est-il facile de savoir le classe ou le titre de la fenêtre ?

Voilà, j'ai ma réponse
et je note ce WM_WINDOWPOSCHANGING, si un jour j'ai des IHM à faire (rarissime), cela doit être plus pratique que ce que j'avais mis en place lors de la maintenance d'un projet existant depuis D7

[Bernard B]

Effectivement c'est facile de trouver la classe et le nom de la fenêtre quand Andnotor le donne !!
Par contre j'ai déjà vu des applis qui donnent ces infos, mais je ne les ai plus en tête. Si quelqu'un peut me rafraîchir la mémoire : Merci