- 判断MonthCalander中鼠标点中了日期还是翻页按钮!
- uses CommCtrl; var OldWindowProc: TWndMethod; procedure TForm1.MyWindowProc(var Msg: TMessage); begin if Msg.Msg = CN_NOTIFY then begin case TWMNotify(msg).NMHdr.code of MCN_GETDAYSTATE: Memo1.Lines.Add('MCN_GETDAYSTATE');//點了翻页 MCN_SELECT, MCN_...
- 作者：Webmaster发表于：2007-06-05 07:50:38 点击：30 评论：1 查阅全文...
- 网络函数库
- {========================================================================= 功 能: 网络函数库 时 间: 2002/10/02 版 本: 1.0 =========================================================================} unit Net; interface uses SysUtils ,Windows ,dialogs...
- 作者：Webmaster发表于：2007-06-05 07:50:36 点击：127 评论：1 查阅全文...
- TStringGrid多选的复制与拷贝
- uses Clipbrd ; function StringGridSelectText ( mStringGrid : TStringGrid ): string ; var I , J : Integer ; S : string ; begin Result := '' ; if not Assigned ( mStringGrid ) then Exit ; for J := mStringGrid . Selection . Top to mStringGrid . Selectio...
- 作者：Webmaster发表于：2007-06-05 07:50:34 点击：93 评论：1 查阅全文...
- Delphi异常处理的基本原则和方法
- 一、异常的来源。 在 Delphi 的应用程序中，下列的情况都比较有可能产生异常。 （ 1 ）文件处理 （ 2 ）内存分配 （ 3 ） Windows 资源 （ 4 ）运行时创建对象和窗体 （ 5 ）硬件和操作系统冲突 ? 二、异常的处理。 （ 1 ） try … except … end ; 在 try 体内的代码...
- 作者：Webmaster发表于：2007-06-05 07:50:32 点击：712 评论：1 查阅全文...
- 在delphi字符中包括单引号(')
- ...
- 作者：Webmaster发表于：2007-06-05 07:50:26 点击：129 评论：0 查阅全文...
|
|
