delphi 控制 Word Ctrl+s 按键(100分)

用户按Ctrl+s 后, 执行其它操作

貌似跟 Delphi 没虾米关系。
可以考虑用 Word 自身的宏，然后给宏定义快捷键，Easy 的很...

帮顶一个，顺便发个交流群：delphi天堂群：4654765，不去是你的损失

procedure TWordForm.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, $FF00, MOD_CONTROL , 83); //s的ascall code 83
end;
procedure CtrlSHotKey(var message: TMessage); message WM_HOTKEY;
procedure TWordForm.CtrlSHotKey(var message: TMessage);
begin
Case Message.WParam of //按下Ctrl+S 按键
$FF00: begin
SpeedButton7Click(SpeedButton7); //do action
end;
end;
end;
procedure TWordForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle,$FF00);
end;

1、恭喜楼主，贺喜楼主，您的程序一旦运行后，不仅 Word 的 Ctrl + S 被截获，所有程序的 Ctrl + S 也被截获了...
2、那样的话，世界上又多了一个被用户骂的程序了...