摘要：
近日做一程序，内嵌TWebBrowser，当用户在browser内select一部分内容，想要copy时，可以使用以下命令... 阅读全文
posted @ 2007-07-28 17:50 OldHawk 阅读(1263) 评论(0) 推荐(0) 编辑
摘要：
The CheckMenuItem function sets the state of the specified menu item's check-mark attribute to either selected or clear. 阅读全文
posted @ 2007-06-20 16:44 OldHawk 阅读(656) 评论(0) 推荐(0) 编辑
摘要：
showmessage('命令行参数个数为:'+inttostr(paramcount));
showmessage('第1个命令行参数为:'+paramstr(1));
showmessage('应用程序名称为:'+paramstr(0)); 阅读全文
posted @ 2007-06-20 14:00 OldHawk 阅读(3374) 评论(0) 推荐(0) 编辑
摘要：
这两天，我把我做的拍卖的操作端发布给公司的同事试用，这些机器都没有安装过delphi环境，我的程序所有用到的组件及单元文件都是build在一块儿的，按理说就不需要其他什么文件来支持了 阅读全文
posted @ 2007-06-18 16:39 OldHawk 阅读(1050) 评论(0) 推荐(0) 编辑
摘要：
with use the Wininet unit, we can discern to connect to internet.
this function is sample 阅读全文
posted @ 2007-06-16 13:04 OldHawk 阅读(267) 评论(1) 推荐(0) 编辑
摘要：
Often in an App that works with Internet you need to know is user connected to Internet or not? I think below is most flexible sotution 阅读全文
posted @ 2007-06-16 12:59 OldHawk 阅读(304) 评论(0) 推荐(0) 编辑
摘要：
This class will produce an Excel Spreadsheet from a TDataSet. No OLE is required or Excel Installation needed to create the file. The one problem with Excel OLE is that is tends to be rather Sloooow. The class uses standard Delphi I/O functions and is considerably faster than the OLE calls. 阅读全文
posted @ 2007-06-13 16:40 OldHawk 阅读(1032) 评论(0) 推荐(0) 编辑
摘要：
This Class allows you to create an Excel Worksheet in much the
same way as you create a TStringGrid. ie. Cell[Column,Row]. 阅读全文
posted @ 2007-06-13 16:25 OldHawk 阅读(862) 评论(0) 推荐(0) 编辑
摘要：
FDBGridEh: TDBGridEh; //对应DBGridEh
FColumnCount: integer; //DBGridEh列数(指visible为True的列数)
FRowCount: integer; //DBGridEh多表头层数(没有多表头则层数为1)
procedure SetDBGridEh(const Value: TDBGridEh);
function GetTitleRow: integer; //获取DBGridEh多表头层数
function GetTitleColumn: integer; //获取DBGridEh列数 阅读全文
posted @ 2007-06-13 09:54 OldHawk 阅读(2950) 评论(7) 推荐(0) 编辑
摘要：
XmlTrans:=TXMLTransform.Create(self);
XmlTrans.SourceXmlFile:=ExtractFilePath(Application.ExeName)+'report.xml';
XmlTrans.TransformationFile:=ExtractFilePath(Application.ExeName)+'report.xtr'; 阅读全文
posted @ 2007-06-12 19:20 OldHawk 阅读(3115) 评论(0) 推荐(0) 编辑
摘要：
Procedure TFormReport.ExportExcelFile(FileName: string; bWriteTitle: Boolean; aDataSet: TClientDataSet);
阅读全文
posted @ 2007-06-12 19:10 OldHawk 阅读(1860) 评论(0) 推荐(0) 编辑
摘要：
语法：ALTER TABLE table ADD COLUMN field type[(size)] [NOT NULL] [CONSTRAINT index]
ALTER TABLE table ADD CONSTRAINT multifieldindex
ALTER TABLE table DROP COLUMN field
ALTER TABLE table DROP CONSTRAINT indexname 阅读全文
posted @ 2007-06-12 11:06 OldHawk 阅读(1484) 评论(0) 推荐(0) 编辑
摘要：
为什么Windows的系统菜单总是一成不变？这个例子教你如何往系统菜单添加一个菜单项如about或information等 阅读全文
posted @ 2007-06-08 09:44 OldHawk 阅读(664) 评论(0) 推荐(0) 编辑
摘要：
.itemnotice{ position:absolute; top:expression((document.body.clientHeight-200)+"px"); left:expression((document.body.clientWidth-400)+"px"); background-color:#CCCCCC; filter:Alpha(opacity=90); opacity: 0.90; height:200px; width:400px; }
阅读全文
posted @ 2007-05-27 15:10 OldHawk 阅读(2182) 评论(0) 推荐(0) 编辑