QQ状态栏 是用什么组件实现的呀?(图) 我刚学delphi 很多地方不懂这个QQ状态按钮 是怎么做的呀 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 barmenu也可以吧,很多这样的控件,不过,QQ肯定是自己画的。 大公司的专用控件,一般都是自己开发的,听说QQ的桌面的控件是用DELPHI开发的,底层是用vc 这个简单啊拉一个PopupMenu1到窗体,在BUTTON的OnMouseUp事件写下列代码就行procedure TPackingItemFrm.SBprintMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var pt:TPoint;begin GetCursorPos(pt); PopupMenu1.Popup((pt.x-x),(pt.y+(SBprint.Height-y)));end; 暈樓上的,DELPHI的自帶控件裡不是有個這個按鍵嗎!!!就是工具欄按鍵呀。改一下屬性就行了的事。 自已截个图标放到bitbutton中,再关联PopupMenu1不可以吗? 参数没有默认值!!救命啊!! 哪位好心人帮忙看看我的代码哪里写错了,急啊 升星星了,散分。 (最好有实例)子窗口怎么更改父窗口的某Label? 大量数据查询 蔡鸟问 请问如何判断win2000的版本类型,是professinal,server,还是Advanced server? 字符检测的问题! 去除重复行的sql语句怎么写??? ---250---分,还可以加!关于CHM帮助的问题!详情见内!!---250分--- 在金融危机时辞职创业,牛B了吧 嘿嘿 delphi中如何保存ToolBar的布局
拉一个PopupMenu1到窗体,
在BUTTON的OnMouseUp事件写下列代码就行procedure TPackingItemFrm.SBprintMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
pt:TPoint;
begin
GetCursorPos(pt);
PopupMenu1.Popup((pt.x-x),(pt.y+(SBprint.Height-y)));
end;