开发工具:
文件大小: 183kb
下载次数: 0
上传时间: 2006-02-23
详细说明： 今天做程序的时候发现Action多了不好控制于是做了一个类似dxBar.Group功能的东东继承自TCollection/TCollectionItem可以将一些TContainedAction作为一个组来控制当然，修改一下就可以将TComponent作为一个组来控制 :)写得比较简单如果哪位有时间可以给她做个属性编辑器，呵呵有哪位修改了也请给我发一份 ：）sephil@163.comActionGroup.pas是源文件NSC_ComponentGroup.mpb是ModelMaker的工程文件其他的是Demo另外有个问题我不会就是如何将一个Event(比如TNotifyEvent)转换为TMethod我用的是变通的手段var FGroups: TNSC_ActionGroup;procedure TForm1.FormCreate(Sender: TObject);begin FGroups := TNSC_ActionGroup.Create(TNSC_ActionGroupItem); FGroups.Add.AddFromActionList(ActionList1, ‘1‘); FGroups.Add.AddFromActionList(A ctionList1, ‘2‘); FGroups.Add.AddFromActionList(ActionList1, ‘3‘); FGroups.Add.AddFromActionList(ActionList1, ‘4‘);end;procedure TForm1.NewClick(Sender: TObject);begin ShowMessage(‘123‘);end;procedure TForm1.Action1Execute(Sender: TObject);var M: TMethod; C: TLabel;begin // Setup OnExecute event // I really don‘t know how to convert an event (such as TNotifyEvent) to TMethod C := TLabel.Create(nil); try C.OnClick := NewClick; M := TMethod(C.OnClick); finally C.Free; end; FGroups[0].SetProperty(‘OnExecute‘, M); FGroups[0].SetProperty(‘Caption‘, ‘11‘); FGroups[1].SetProperty(‘Caption‘, ‘Test‘); FGroups[2].SetProperty(‘Enabled‘, False); // Get OnExecute from gruop 1 and set to group 4 FGroups[0].GetProperty(‘OnExecute‘, M); FGroups[3].SetProperty(‘OnExecute‘, M); if FGroups[3].PropertyGrouped(‘Enabled‘) then ShowMessage(‘Group[3] ‘‘Enabled‘‘ property grouped‘); if not FGroups[3].PropertyGrouped(‘Enabled‘, False) then ShowMessage(‘Group[3] ‘‘Enabled‘‘ property not grouped to ‘‘False‘‘‘); if not FGroups[3].PropertyGrouped(‘Caption‘, ‘Action10‘) then ShowMessage(‘Group[3] ‘‘Caption‘‘ property not grouped to ‘‘Action10‘‘‘);end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
