看看 ComCtrls里的CheckMenuDropdown,
我真不知道该说Borland的工程师们是愚蠢还是不负责任
我是真的不敢用了,我不知道哪还藏着Bug!
function TToolBar.CheckMenuDropdown(Button: TToolButton): Boolean;
...........
APoint := Button.ClientToScreen(Point(0, Button.ClientHeight));
if FTempMenu.IsRightToLeft then
Inc(APoint.X, Button.Width);
FMenuDropped := True;
if (GetSystemMetrics(SM_CYMENU) * FTempMenu.Items.Count) + APoint.Y >
Screen.MonitorFromPoint(APoint).Height then
Dec(APoint.Y, Button.Height);
//就此段程序来看应该说他们是愚蠢,Borland是不是没钱顾差不多点的人了,找了一些混子充程序员
//写这段程序的人的脑袋分明是让狗吃了!!!!!!!!!!!!!!!!!!!!!!!!!!!
//他妈蛋的居然想用这种办法控制菜单高度!!!懂不懂Windows编程???
//已经ClientHeight了,后来居然又减了回去,***,写这程序的人纯粹是傻BBBBBBBBBBBBBBBBBBB
//而且后期测试居然没有人发现这个问题!!!!!!!????????????????????
if GetComCtlVersion = ComCtlVersionIE5 then
Button.Invalidate;
FTempMenu.Popup(APoint.X, APoint.Y);
..............
对不起!粗话多了点,可TMD实在太气人了!!!
Borland到底怎么了???怎么找这种人编程???而且还是很重要的ComCtrls单元???没钱顾人了???