Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#1

OLE Winword Shortcuts deaktivieren

  Alt 20. Jun 2012, 08:57
Hallo #,

folgender Code blendet die Speichern-Menüpunkte aus.
Drücke ich jetzt Ctrl+S, kommt trotzdem der "Speichern unter"-Dialog.
Delphi-Quellcode:
type
  TWordObject = class
  private
    FWordApp : _Application;

var
  Btn: OleVariant;


      Btn:= FWordApp.CommandBars['File'].Controls['Speichern'];
      if VarIsNull(Btn)=False then
      begin
        Btn.Delete(Temporary);
      end;
    except
    end;
    try
      Btn:= FWordApp.CommandBars['File'].Controls['Speichern unter...'];
      if VarIsNull(Btn)=False then
      begin
        Btn.Delete(Temporary);
      end;
    except
    end;
In der WordXXXX.pas steht nicht mal das Wort ShortCut drin ...

Und nun ?

Eine 2. Sache habe ch auch noch ...
Was passiert in einer eng. Version ?


Danke


Heiko
Heiko

Geändert von hoika (20. Jun 2012 um 09:08 Uhr)
  Mit Zitat antworten Zitat