TButton缺陷

【问题标题】：TButton deficienciesTButton缺陷
【发布时间】：2014-08-08 21:42:31
【问题描述】：

Delphi XE2 中的TButton 有一个Style 属性。当此属性设置为bsSplitButton 时，按钮右侧会显示一个下拉箭头：

但是，这个下拉区域有一些不便之处：

很多时候太窄了，下拉区域的静态宽度只有11像素。
当鼠标指针悬停在下拉区域上时，仅针对下拉区域没有明确的悬停指示。

如何实现 TButton 的后代来解决这个不便？后代应该有一个DropDownWidth 属性和一个在鼠标悬停在下拉区域上时处理和更改下拉显示的属性。

【问题讨论】：

如何实现？好吧，启动编辑器并编写代码。如果您需要具体帮助，您确实需要提出更具体的问题。

标签： delphi delphi-xe2 split-button

【解决方案1】：

您的后代必须调用Button_SplitInfo（或发送BCM_SETSPLITINFO）来调整分割宽度。下面是一个运行时示例用法，您可以在后代中集成类似的功能：

procedure SetButtonSplitWidth(Button: TButton; Width: Integer);
var
  Info: TButtonSplitinfo;
begin
  if Button.Style = bsSplitButton then begin
    Info.mask := BCSIF_SIZE;
    Info.size.cx := Width;
    Info.size.cy := 0;
    Button_SetSplitInfo(Button.Handle, Info);
    Button.Invalidate;
  end;
end;

调用示例结果

SetButtonSplitWidth(Button2, 25);

是这样的：

请参阅documentation，了解您还能做什么。没有任何功能可以修改本机按钮控件的悬停行为。为此，您可能最好不要从TButton 开始。

【讨论】：