当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: unit uSingleton; interface us
 

 

 ·vcl component messages    »显示摘要«
    摘要: vcl control messages (values): parameters: comments: cm_base ($b000) cm_activate no params used when app is actived or a (cm_base + 0) custom form is modally shown cm_deactiv......
    摘要:   用过photoshop的朋友一定对它的那些方便的浮动面板记忆犹新,其实这些面板就是一个个的小窗体,但这些小窗体都放在photoshop的主窗体上(不是存在主窗体中),有自己的标题栏、最小化按钮及最大化按钮。但它们与mdi程序不同的是,他们可以拖到主窗体外,更重要的是工作中所有这些面板窗体与主窗体最处于激活状态。  用spy & capture查看一下就不难发现,这些面板窗体的......


我用Delphi实现的Singleton模式

unit usingleton;

uses 【程序编程相关:Dephi快捷健

interface 【推荐阅读:delphi2005 启动加快

  sysutils; 【扩展信息:序列化FastReport

type

  esingletonexception = class(exception);

  tsingleton = class

  private

    // 单例类真正使用的构造函数,此处命名为createnew

    constructor createnew;

  public

    // 用于阻止显式调用,因为即便将其设为私有的,

    // 也可以调用构造函数create,

    // 虽然实际上调用的是其父类的构造函数,

    // 这样显然不是很理想,

    // 所以只好声明并在实现中引发 esingletonexception

    constructor create;

    // 类方法,返回对唯一的实例

    class function instance: tsingleton;

  end;

implementation

uses syncobjs;

var

  singletoninstance: tsingleton = nil;

  // 用于锁定 tsingleton.instance 方法,防止多线程访问


...   下一页
    摘要: 你有女朋友,或是有暗恋的人吗?如果你有的话,那么不好意思,你应该承认她是有缺点的。因为毕竟人无完人嘛。可是因为你爱她,所以也就能够接受或忍耐她的缺陷,你不会因为她有缺点就看不起她,不会因为她脸上有小豆豆就厌恶她。进而甚至爱屋及乌,反而觉得她的刁蛮、任性也是如此的可爱,她对你的打骂竟也是如此的甜蜜……同样,你也不敢否认你不是完美的,而她也不会因为你有一双汗脚、曾经无意识的当......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE