Boîte de dialogue d'impression modale TWebBrowser?

Question

J'ai trouvé plusieurs façons de faire en sorte que TWebBrowser affiche une boîte de dialogue d'impression non modale, mais comment la rendre modale? Je voudrais imprimer une page html, c'est pourquoi j'ai besoin du dialogue modal.

J'apprécierais vraiment vos idées sur celui-ci.

Merci!

Answer 1

Eureka! Je l'ai résolu.

Voici comment:

Lorsque vous affichez la boîte de dialogue d'impression modales, vous pouvez désactiver le formulaire d'appel à Delphes. Vous pouvez ensuite utiliser l'événement OnCommandStateChange pour détecter lorsque l'utilisateur imprime ou annule la boîte de dialogue Imprimer.

code Exemple:

WebBrowser1.OnCommandStateChange:=WebBrowser1CommandStateChange; 
    WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, 
    vaIn, vaOut); 

procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: 
    Integer; Enable: WordBool); 
begin 
    if Enabled then 
    Enabled:=false 
    else begin 
    Enabled:=true; 
    WebBrowser1.OnCommandStateChange:=nil; 
    end; 
end; 

Je vous prie de bien vouloir les gens à tester ma solution, comme je ne suis pas sûr de la fiabilité de ce code.

Merci!

Answer 2

Je ne peux pas penser à une raison pour laquelle il y aurait beaucoup de façons d'afficher une boîte de dialogue non modale. Pourquoi voudriez-vous continuer à interagir avec le navigateur Web pendant l'affichage d'une boîte de dialogue d'impression sans modèle?

Si vous voulez lancer l'impression par le programme, mais il faut à l'utilisateur de sélectionner l'imprimante, utilisez:

ExecWB(OLE_CMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);