关于SpeedButton中使用下划线快捷键不响应的问题

  在Windows应用程序，很多都有快捷键功能，这个Delphi也有，就是一个按钮上面有一个比如剪切(&X)，这个时候剪切的快捷键就是Alt+X，这个功能有时候还是挺好用的，最近，公司中有同事，好些使用了SpeedButton，然后使用本方式整的快捷键，都不能用，于是问我，这个是神马问题，实际上确切的说，也不是不能用，而是在某些情况下不能用，比如说使用PageControl等一类控件，然后再TabSheet下面再放一个Panel，然后再Panel上放SpeedButton，这个时候，使用快捷键就会导致响应有问题，比如说TabSheet1中直接就有一个SpeedButton就在TabSheet1上，TabSheet2上的SpeedButton在Panel上，两个TabSheet的SpeedButton的快捷键都是Alt+A，此时按道理来说，应该快捷键，哪个TabSheet是激活状态，就应该响应那个TabSheet上的SpeedButton的快捷键事件，可是实际上，只要有Panel的那个SpeedButton页面激活过之后，就会一直响应那个页面的SpeedButton的快捷键激活。而且会导致混乱。

   针对这个问题，啥办法呢，自然不能盲目的去整，Delphi比较好的一点就是VCL源码都带了，所以直接去VCL中去找答案就行了，通过跟踪发现Alt+X这类快捷键模式实际上是响应的Delphi的CM_DIALOGCHAR这个消息，然后查看TwinControl中的实现

procedure TWinControl.CMDialogChar(var Message: TCMDialogChar);
begin
  Broadcast(Message);
end;

可知，他会向全局广播这个快捷消息，所有的控件都会获得这个消息，此时谁先获得，拦截处理之后，消息就不再继续。然后俺们看看SpeedButton的此消息处理过程

再去使用，则触发正常

关于SpeedButton中使用下划线快捷键不响应的问题,布布扣,bubuko.com