易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi 自己写个Timer玩玩

技术交流,DH讲解.
明天去坐火车,回家,今天就没有事做,本来在弄一个跨进程获取其他程序里面组件,如ListView,ListBox,Button等的信息,突然有个想法自己写个Timer,不用SetTimer函数,我们自己用个多线程也正好实现这个.反正前段时间多线程也弄得比较多,本来想单独讲讲的,现在就用个例子来说明吧.
写成一个控件:utTimer.pas
view source
< id="highlighter_394362_clipboard" title="copy to clipboard" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" width="16" height="16" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0" type="application/x-shockwave-flash">
print?
001
unit utTimer;
002
  
003
interface
004
uses
005
  Windows,SysUtils,Classes;
006
  
007
type
008
  THuangJackyTimerThread = class;
009
  THuangJackyTimer = class(TComponent)
010
  private
011
    FTimeInterval:Integer;
012
    FOnTimerDo:TNotifyEvent;
013
    FTimerThread:THuangJackyTimerThread;
014
    FEnable:Boolean;
015
    procedure SetEnable(bBool:Boolean);
016
    procedure SetTimeInterval(aValue:Integer);
017
  
018
    procedure StopThread;
019
    procedure StartThread;
020
  public
021
    constructor Create(AOwner: TComponent); override;
022
    destructor Destroy; override;
023
  published
024
    property TimeInterval:Integer  read FTimeInterval write SetTimeInterval;
025
    property OnTimerDo:TNotifyEvent  read FOnTimerDo write FOnTimerDo;
026
    property Enable:Boolean  read FEnable write SetEnable;
027
  end;
028
  
029
  THuangJackyTimerThread = class(TThread)
030
  private
031
 &nb


相关文档:

delphi类的相互引用

在写c++的接口时可以将两个相互引用的类放在两个.h文件中,然后将这个接口翻译到delphi时,放在两个文件里就不可能了。只能放在同一个unit中。并且要将这两个类都放在同一个type下面进行定义,当前面一个类要使用后面一个类时,需要在前面一个类的前面放置一个前置声明,并且前置声明只能是IVariantMap = class;这种格式而� ......

Delphi动态事件深入分析

Delphi动态事件深入分析
2009-2-7
作者:不得闲
核心提示:本实验证明了在类中方法的调用时候,所有的方法都隐含了一个Self参数,并且该参数作为对象方法的第一个参数传递...
首先做一个空窗体,放入一Button。
在implementation下面声明两个方法如下:
//外部方法,只声明一个参数,此时按照标准的对象内部事件方法T ......

Delphi 循环的秘密

技术交流,DH讲解. 哈哈,我承认我是标题党.
最近看天书夜读里面是对C语言的代码反汇编,不错,可惜Delphi没有这样的书,那我们自己动手吧.
首先进入For循环了. Function TestFor( a, b: Integer ): Integer ;
Var
I: Integer ;
Begin
Result := a + b ;
For I := 0 To 49 Do
Result := Result + I ......

SDL & Object Pascal (Delphi) [前言]

实际上这个名字叫[SDL & Delphi]也不成问题, 因为除了Delphi似乎也没有哪个流行的开发工具用的是Pascal语言。
SDL其实我也只学了不到两星期而已。刚开始我想试图用VC,因为这样资料最全,也很好找,但太久没用VC现在看C的代码有点困难(->这个算符是干吗的来着……)。其实作为一个专业不是计算机的人 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号