Intégrer un objet Ole WIA dans un panel ou une fenêtre

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:

---

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

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)

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.

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

Code:

---

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;

---

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

Citation:

---

Envoyé par Andnotor

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

---

Citation:

---

Envoyé par ShaiLeTroll

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

Effectivement c'est facile de trouver la classe et le nom de la fenêtre quand Andnotor le donne !!:mouarf:
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

WindowSpy, en Delphi

KillApplic (utilise EnumWindows), une adaptation d'un projet Phidels, je m'en suis servi récemment pour le forum

Ici en l’occurrence on a hwndInsertAfter qui va fatalement, une fois, représenter la fenêtre d'impression. GetClassName/GetWindowText nous permettent d'en extraire les informations.