寻求类似FOXMAIL3.1中收信按钮的按钮控件或代码(100分)

  • 主题发起人 主题发起人 PaulBlue
  • 开始时间 开始时间
P

PaulBlue

Unregistered / Unconfirmed
GUEST, unregistred user!
FOXMAIL3.1中的收信、转移到按钮在右下角都有小箭头，点按钮中心时是普通
按钮响应，点小箭头区域时弹出菜单。

各位知道的指条路，能给出实现代码的重重有赏！
 
其实她的那些按钮是TSpeedButton
 
可是TSpeedButton里面没有我要的小箭头吧?
 
看看IE的后退、前进按钮吧，他们和黑▲是一起浮动的，但是可以分开响应。
所以用2个TSpeedButton应该可以实现。
 
我记得《DELPHI 5 企业级解决方案及应用剖析》所带光盘上有例子，而且书上有说明。
 
wjiachun:
不知你是不是见过FOXMAIL3.1的按钮, 它的那个小箭头是在右下角的,而且怎么看
那也不象两个按钮呀!
 
自己编写一个，其实象此类按钮很简单。
 
嘿嘿，真是 Easy money .

在 Form 上放一个 TPopupMenu，填几个 Item。
放一个 ToolBar(Win32 面板)，右键点击，New 一个 ToolButton ，设置 ToolButton 属性：
Style: tbsDropDown
DropDownMenu: PopupMenu1

搞定！
(BaKuBaKu: 这个问题已经结束讨论，您的答案最终被接受) :-))))))))
 
我把FOXMAIL3.1的窗体反编译后发现
FOXMAIL3.1的工具条是用的RXLib中的speedbar。
所以你提到的那些都是现成的。
RXLib在http://www.ocloud.com/有。
 
各位,不知是我没说清楚,还是大家没看清楚,这里我说明一下,我不是不会做带下拉
菜单的工具条按钮,只是我觉得象类似资源浏览器的向上、向下按钮这样的效果太普通，它的下拉菜单是在主按钮的右边选择后弹出的，看上去有点象两个按钮其实还是
~~~~
一个按钮，而FOXMAIL3.1中的收信按钮则看上去完完全全就是一个按钮，它的右下角
处画了一个向下的小箭头，如果你点击按钮中央区域则是完成收取所有账号的信件，
~~~~
而点在右下角小箭头区域时，则弹出菜单让用户选择收信的账号，各位看明白了吗？
~~~~（不是右边）
（实在不明白只好请各位自己比较一下FM3.1和浏览器下拉按钮的区别）
FOXMAIL的工具栏是RXLIB中的TSPEEDBAR,这个我已经知道了，它上面的按钮是
TSPEEDITEM,我研究了这个按钮的所有属性，发现顶多也只能做出浏览器的那种靠右
的下拉菜单按钮，或是只有弹出菜单的按钮，这种按钮还是挺好的，可以拖放定制
工具栏上显示的按钮数目（效果见DEMO）,可是就是没有FM3.1中我看到的上述那种效果
，我当然知道自己画肯定可以做到，问题是小弟才疏学浅，对组件编程、画布都不太了解，所以才向各位讨教的，哪位能拿出具体实现方法，根据具体情况，我不会吝惜我
的积蓄的，望各位抽空好好研究一下吧！

宋远午:
你用什么工具可以反编译?不会是VCLSCANNER吧?

要得分可不容易哟!
 
需要改造rxlib才能实现，大致要改两个地方，
一个是画箭头的地方，一个是mousedown，基本就可以了。

FoxMail有很多地方改造了delphi/第三方VCL，比如dialog，
我以前回答的问题中可以看到。
 
好像第十期的《PcFriend家用电脑》，里面有一篇就是用Delphi基本控件实现这种功能的。
第十期杂志看了好几种，什么新潮电子、计算机文摘等等，
具体哪一个有点模糊，不过刚才到新潮电子查了一下，没有。
计算机文摘竟然还查不到第十期的目录，真是Faint！

老猫，请你帮我想想看，有没有印象啊？
 
没人能贴出代码给我看一下吗?
 
温柔一刀说的是对的
在onmousedown事件中，判断鼠标的位置，然后再决定是否弹出popup菜单
根本不需要画箭头，你直接用图象处理软件在那个按钮的image上画上一个箭头就是了，
何必要动态生成？
不过，这么做有意义吗？我一直觉得靠右的下拉菜单按钮更好。
 
这个很简单，在我的程序中就有这种按钮。
 
帖子 ./DispQ.asp?LID=422434
里yufandi作出了这个东西，你自己去要吧！
另外：PaulBlue你的一大堆帖子是不是可以结束几个？
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

不
Delphi实现类似Android锁屏的密码锁控件 - 不得闲
回复
0
查看
971
不得闲
不
S
[FMX]开年第一弹：修改 FMX.Controls 避免按住编辑框移动时弹出输入法的问题
回复
0
查看
849
swish
S
I
点击“提交”按钮
回复
0
查看
605
import
I
I
修改DBNavigator中按钮的图标
回复
0
查看
642
import
I
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部