Wie feststellen ob Inhalt vom TEmbeddedWB geändert wurde?

[BlueStarHH]

Hallo,

ich habe einen TEmbeddedWB mit DesignMode := true. Also eine Webbrowser, in dem der Anwender den Inhalt bearbeiten kann. Ich möchte nun feststellen, ob der Anwender den Inhalt bearbeitet hat. Zweck: In meinem Programm soll ein Diskettensymbol enabled werden, sobald der Anwender den Inhalt bearbeitet. Eine OnChange-Methode habe ich leider nicht gefunden. Danke im Voraus!

Grüße
BlueStar

[toms]

Hallo

Du kannst via IsDirty abfragen, ob der Inhalt verändert wurde.

Delphi-Quellcode:

uses ActiveX;

if (EmbeddedWB1.Document as IPersistFile).IsDirty = S_OK then
  ShowMessage('Inhalt verändert')

Edit: Geht noch einfacher via

Delphi-Quellcode:

EmbeddedWB1.Modified

Falls du den TEditDesigner verwendest:

Delphi-Quellcode:

if EditDesigner1.IsDirty = S_OK then ...