![](https://img-blog.csdnimg.cn/20201014180756923.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi.about.com
文章平均质量分 77
WhoMovedMyCheese
这个作者很懒,什么都没留下…
展开
-
Cancel All Edits
unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TConfigForm = class(TForm) Edit1: TEdit;原创 2009-12-17 21:03:00 · 718 阅读 · 0 评论 -
Smarter Records in Turbo Delphi / Delphi 2006
type TTurboRecord = record strict private fNameValue : integer; function GetName: string; public NamePrefix : string; constructor Create(const initNameValue : integer) ;转载 2009-12-20 09:43:00 · 622 阅读 · 0 评论 -
Override Delphi Form's Restore Operation
{ Private declarations } procedure WMSysCommand (var Msg: TWMSysCommand) ; message WM_SYSCOMMAND;procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);begin if Msg.CmdType = SC_RESTORE t转载 2009-12-23 09:35:00 · 711 阅读 · 0 评论