OLE Winword Shortcuts deaktivieren

[hoika]

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

[p80286]

Du müßtest unter Extras -> Anpassen -> Befehle ->Tastatur (kommt aber auf deine Word-Version an) mal schauen.
Da kann man ganz tolle Sachen machen.

Vielleicht hilft Dir auch dieser Schnipsel weiter:

Code:

CustomizationContext = NormalTemplate
    FindKey(BuildKeyCode(wdKeyB, wdKeyControl)).Disable
    CustomizationContext = NormalTemplate
    KeyBindings.ClearAll

Gruß
K-H