Einzelnen Beitrag anzeigen

rdeutsch

Registriert seit: 24. Mär 2006
77 Beiträge
 
Delphi 12 Athens
 
#1

TWordApplication - wie beim Schliessen erkennen ob ein Dokument verändert wurde?

  Alt 10. Sep 2024, 17:01
Hallo

Im untenstehenden Code wird dem Event OnDocumentBeforeClose eine entsprechende Procedure WordBeforeClose zugewiesen. In dieser möchte ich - falls der Benutzer das Dokument verändert hat - eine Möglichkeit zum Speichern anbieten.
Wenn das Dokument nicht verändert wurde, dann soll Word ohne weitere Meldung geschlossen werden.

Wie kann man erkennen, ob ein Worddokument verändert wurde?
Meine bisherige Suche blieb leider erfolglos.

Delphi-Quellcode:
  wordApp := TWordApplication.Create(self);
  wordApp.Documents.Open(docFilename, EmptyParam, false, EmptyParam,
                         EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                         EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  wordApp.Visible := true;
  wordApp.Activate;
  wordApp.ScreenUpdating := true;
  wordApp.OnDocumentBeforeClose := WordBeforeClose;
Danke für die Hilfe.
Grüsse, Robert
  Mit Zitat antworten Zitat