Discussion :

[lordrt]

Bonjour à tous,
mon français n'est pas trop parfait mais je vais essayer de résumé mon problem:

J'ai des documents OLE (e.g. Word, Excel), qui s'ouvrent à travers mon app en Delphi, mais le seul problem que je rencontre c'est si j'ai ouvert un doc en MS Word et que j'ai changé la fenêtre en mode 'custom', tous les autres doc qui s'ouvrent après sont dans ce mode, alors que je voulais que mem si un doc a été ouvert en fenêtre custom, les autres doivent obligatoirement ouvrir en plein ecran, est-ce qu'il y a un code qui permet de forcer MS Word (ou autres, e.g. Acrobabt reader) à ouvrir en plein ecran depuis Delphi?

[Just-Soft]

Salut et bienvenue
rien ne vaut plus que de voir ton code.

[lordrt]

re-salut a tous
voici les codes les plus important concernant l'ouverture des docs, c'est plutot pour la partie 'modifier doc' que s'ouvrent les Word, Excel etc, car les docs sont ensuite stokés dans ma base de données. J'ai 2 'frames' en Delphi, TFRDocument et TFROleDocument, et même si on clique sur le document dans TFRDocument, le code va ouvrir l'autre frame TFROleDocument pour l'excution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TFRDocument.MNDocumentModifyClick(Sender: TObject);
begin
     {simulate a double click, to fetch the doc}
     if GDDocument.Visible then
        DefaultViewDoubleClick;
     if TLDocumentList.Visible then
         TLDocumentListDblClick(TLDocumentList);
     if GDDocumentReceivedDocs.Visible then
         GDDocumentReceivedDocsDblClick(GDDocumentReceivedDocs);
 
     {simulate an edit to open the doc}
     TFROleDocument(PCDocument.ActivePage.Controls[0]).MNOleDocumentEditClick(TFROleDocument(PCDocument.ActivePage.Controls[0]).MNOleDocumentEdit);
end;

Code :

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

1
2
3
4
5
6
7
8
 
procedure TFROleDocument.MNOleDocumentViewOpenClick(Sender: TObject);
begin
     {open document, but not allowed to save}
     if Assigned(OCOleDocumentContainer.OleObjectInterface) then
        OCOleDocumentContainer.DoVerb(ovShow);
     OCOleDocumentContainer.BringToFront;
end;

J'ai seulement besoin d'une ligne de code qui permet l'ouverture en plein ecran de MS Word, Acrobat etc. Peut être une propriété dans le OleContainer OCOleDocumentCOntainer?

[lordrt]

Salut à tous
Est-ce que quelqu'un pourra m'aider à trouver des liens/tutoriels concernant OleContainer pour delphi, les propriétés associés au olecontainer etc? J'ai cherché sur google mais sans résultats valables.

[anapurna]

salut


pour mettre en pleine ecrain en dehors de la zone ole

Code :

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

1
2
3
4
5
6
7
8
 
  Ole.close;
  Ole.AutoVerbMenu := true;
  Ole.AllowActiveDoc:=false;
  Ole.AllowInPlace:=false;
  Ole.DoVerb(ovShow);
  Ole.Visible := true;
  Ole.DoVerb(ovPrimary);

pour la mettre dans la zone ole

Code :

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

1
2
3
4
5
6
7
 
        Ole.Visible := True;
        Ole.AutoVerbMenu := false;
        Ole.AllowActiveDoc:=true;
        Ole.AllowInPlace:=true;
        Ole.CreateObjectFromFile(Fichier,False);
        Ole.Visible := True;

@+ Phil

[lordrt]

merci anapurna, je vais essayer ces codes