给Delphi的工具条按钮添加BTNS_WHOLEDROPDOWN风格

转自我的旧博客

工具条按钮的BTNS_WHOLEDROPDOWN风格是IE5以后就提供的.

Delphi早期版本估计是为了照顾兼容性工具条按钮是没有这个风格的.只有下面几种和系统风格对应的风格.

TToolButtonStyle = (tbsButton, tbsCheck, tbsDropDown, tbsSeparator,
tbsDivider, tbsTextButton);

后面尽管IE5以下根本没人用了,但是Delphi的开发人员都忘了添加一种WholeDropDown风格来对应这种风格..

CSDN网友 xiedewei 提了这个问题.并且修改VCL源代码解决了这个问题.但是修改VCL源代码毕竟不是一件一劳永逸的事情.以后新版VCL源代码还要改,所以我在这里提供了一种更简单的方式.直接可以设置.

uses
CommCtrl;

//设置工具条某个按钮为BTNS_WHOLEDROPDOWN样式
function SetBtnWholeDropdown(tb : TToolBar; BtnIndex : Integer) : boolean;
var
btnInfo : TTBBUTTONINFO;
r : Integer;
e : Integer;
begin
ZeroMemory(@btnInfo, sizeof(btnInfo));
btnInfo.cbSize := sizeof(btnInfo);
btnInfo.dwMask := TBIF_STYLE;

//返回值是按钮的索引
if tb.Perform(TB_GETBUTTONINFO, BtnIndex, WParam(@btnInfo)) < 0 then
begin
Result := False;
end
else
begin
btnInfo.fsStyle := btnInfo.fsStyle and (not BTNS_DROPDOWN)or BTNS_WHOLEDROPDOWN;
//非零就是成功
Result := tb.Perform(TB_SETBUTTONINFO, BtnIndex, WParam(@btnInfo)) <> 0;
end;
end;

此条目发表在Delphi, 未分类分类目录。将固定链接加入收藏夹。

给Delphi的工具条按钮添加BTNS_WHOLEDROPDOWN风格》有 74 条评论

  1. Pingback引用通告: psixolog

  2. Pingback引用通告: psyhelp_on_line

  3. Pingback引用通告: coronavirus

  4. Pingback引用通告: PSYCHOSOCIAL

  5. Pingback引用通告: rasstanovka hellinger

  6. Pingback引用通告: Cherekasi film 2020

  7. Pingback引用通告: film doktor_liza

  8. Pingback引用通告: djoker film

  9. Pingback引用通告: viagra

  10. Pingback引用通告: t.me/psyhell

  11. Pingback引用通告: Ïñèõîëîã îíëàéí

  12. Pingback引用通告: bitly.com

  13. Pingback引用通告: viagra 100mg

  14. Pingback引用通告: viagra price

  15. Pingback引用通告: viagra online

  16. Pingback引用通告: viagra generic

  17. Pingback引用通告: viagra coupon

  18. Pingback引用通告: cheap viagra

  19. Pingback引用通告: cialis

  20. Pingback引用通告: cialis coupon

  21. Pingback引用通告: canadian pharmacy cialis

  22. Pingback引用通告: cialis 5mg

  23. Pingback引用通告: bitly

  24. Pingback引用通告: movies-tekstmovies-tekst

  25. Pingback引用通告: Zemlyane 2005 smotret onlajn

  26. Pingback引用通告: smotret onlajn besplatno v kachestve hd 1080

  27. Pingback引用通告: gusmeasu.com

  28. Pingback引用通告: movies-unhinged-film

  29. Pingback引用通告: malenkie-zhenshhiny-2020

  30. Pingback引用通告: dom 2

  31. Pingback引用通告: zoom-psykholog

  32. Pingback引用通告: zoom-viber-skype

  33. Pingback引用通告: Vratar Galaktiki Film, 2020

  34. Pingback引用通告: Vratar

  35. Pingback引用通告: Cherkassy 2020

  36. Pingback引用通告: chernobyl-hbo-2019-1-sezon

  37. Pingback引用通告: moskva-psiholog

  38. Pingback引用通告: batmanapollo.ru

  39. Pingback引用通告: 323

  40. Pingback引用通告: 525

  41. Pingback引用通告: dom2-ru

  42. Pingback引用通告: Tenet Online

  43. Pingback引用通告: psy psy psy psy

  44. Pingback引用通告: krsmi.ru

  45. Pingback引用通告: like-v.ru

  46. Pingback引用通告: CFOSPUK

  47. Pingback引用通告: MAMprEj

  48. Pingback引用通告: fgu0ygW

  49. Pingback引用通告: batmanapollo

  50. Pingback引用通告: tsoy

  51. Pingback引用通告: 44548

  52. Pingback引用通告: 44549

  53. Pingback引用通告: hod-korolevy-2020

  54. Pingback引用通告: HD

  55. Pingback引用通告: 158444

  56. Pingback引用通告: groznyy-serial-2020

  57. Pingback引用通告: 38QvPmk

  58. Pingback引用通告: bitly.com/doctor-strange-hd

  59. Pingback引用通告: bitly.com/eternals-online

  60. Pingback引用通告: bitly.com/maior-grom

  61. Pingback引用通告: matrica-film

  62. Pingback引用通告: dzhonuikfilm4

  63. Pingback引用通告: bitly.com/batman20212022

  64. Pingback引用通告: bitly.com/venom-2-smotret-onlajn

  65. Pingback引用通告: bitly.com/nevremyaumirat

  66. Pingback引用通告: bitly.com/kingsmankingsman

  67. Pingback引用通告: bitly.com/3zaklyatie3

  68. Pingback引用通告: bitly.com/1dreykfilm

  69. Pingback引用通告: bitly.com/topgunmavericktopgun

  70. Pingback引用通告: bitly.com/flash2022

  71. Pingback引用通告: bitly.com/fantasticheskietvari3

  72. Pingback引用通告: bitly.com/wonderwoman1984hd

  73. Pingback引用通告: Human design

  74. Pingback引用通告: 1444

发表评论

电子邮件地址不会被公开。

您可以使用这些HTML标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

你必须启用JavaScript