电脑报电子版 -- Delphi4的强力控件集-AHM98

综合报道

软件世界

硬件周刊

大众网络

ＯＡ专刊

游戏广场

评测与市场

当前位置：电脑报电子版 > 1999 年 > 16 期 > 软件世界 > Delphi4的强力控件集-AHM98

《 Delphi4的强力控件集-AHM98 》

　　早在Delphi3流行时,AHM控件集就已经声名远扬,现在，支持Delphi4的新版——AHM Triton Tools98(以下简称AHM98)已推出。AHM98提供的控件超过100个,其中有不少是增强型的图形控件,也有的是对WinAPI函数的封装,当然,也有对数据库与网络的支持。由于篇幅关系，在这里只介绍几个具有通用价值的控件。
　　1．AHMSystemTray
　　AHMSystemTray在Windows任务栏设置小图标就给你创造了捷径，用它的Icon属性来获取需要的图标。把它的PopMenu属性与一个PopupMenu控件关联,这就是鼠标左击小图标时的弹出菜单。它同时也提供了各类鼠标点击事件。需要注意的是：将程序从小图标复原的代码是Application.restore，而不能用ShowWindow函数，自然也不能直接将窗体的WindowState属性设置为wsNormal。
　　2．AHMDroppedFiles
　　使用AHMDroppedFiles控件可以轻松实现文件拖放的功能，使用CollectBy属性可以获取目标文件的扩展名、全名或路径＋全名。只要在其OnDrop、OnEndDrop、OnStartDrop事件中编写所需的代码即可。例如：在窗体Form1上放置一个Memo控件Memo1,再放置一个AHMDroppedFiles控件，将CollectBy属性置为dFullPath，将Active属性置为True（否则该控件无效）。下面给出它的OnDrop、OnEndDrop、OnStartDrop事件代码。
　　procedure
　　TForm1.AHMDroppedFiles1Drop(Sender: TObject; DroppedItem: String);
　　begin
　　memo1.Lines.LoadFormFile(DroppedItem);
　　end;
　　procedure
　　TForm1.AHMDroppedFiles1StartDrop(Sender: TObject);
　　begin
　　memo1.Lines.Clear;
　　end;
　　procedure TForm1.AHMDroppedFiles1EndDrop(Sender: TObject);
　　begin
　　memo1.Refresh;
　　end;
　　程序运行后,用鼠标将一文本文件拖至程序窗体后，Memo中便会显示该文件内容。Memo控件最多只能容纳64K的文本,因此在本例中若使用的文件过大将导致错误。
　　3．AHMStartUp
　　想让你的程序在每次Windows启动时自动运行吗？AHMStartUp为你提供了最简单的方法，只需设置它的AutoStartUp属性便可达到目的。另外还有一个UniqueName属性,它将一个特殊的字符串放入Windows注册表中作为自动运行的标记。
　　4．AHMTipTricks
　　这一控件可以在你的应用程序中轻松实现“日积月累”对话框(如图)。它的Tips放在其Tips属性里，启动方法Execute可以放在主窗体的OnCreate事件里执行,另外，该控件的按钮与检查框的Caption属性可定制,因此很容易汉化。
　　5．[AHMStandard]里的AHMCommandLabel
　　在应用程序里加上自己主页或者电子信箱的超级链接近来比较流行,其实实现这项技术很简单，使用AHMCommandLabel控件就能轻松做到,你只需在它的Command属性里指定命令类型即可。除Email和URL之外,它还支持运行文件和FTP等操作。
　　6．AHMOnlyOne
　　这一控件是用来实现应用程序单实例化，即可以防止同一程序在未关闭前再次开启。使用这一控件来实现非常简单,它是非可视化控件,通常在设计阶段只需确定它的OnExceed属性和OnExceeded事件即可。OnExceed属性决定在第二个程序实例试图被执行时的反应，共四种选项，推荐使用第四个即aRestoreAndExit；OnExceeded事件用来确定附加的行为,譬如弹出一个警告对话框。
　　关于AHM98的介绍就到这里，有兴趣的读者可以去Http://www.ahm.co.za下载。
(江苏　王捷)

下载本期推荐软件

页首