文章列表
 
您正在查看 "编程资料-线程" 分类下的文章

2006-10-30 17:07

线程中的Timer

found in "Delphi
Developer's Journal"

unit ThdTimer;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs;

type
  TThreadedTimer = class;

  TTimerThread = class(TThread)
    OwnerTimer: TThreadedTimer;
    procedure Execute; override;
  end;

  TThreadedTimer = class(TComponent)
  private
    FEnabled: boolean;
    FInterval: word;
    FOnTimer: TNotifyEvent;
    FTimerThread: TTimerThread;
    FThreadPriority: TThreadPriority;
  protected
    procedure UpdateTimer;
    procedure SetEnabled(value: boolean);
    procedure SetInterval(value: word);
    procedure SetOnTimer(value: TN

 
 
   
 
 
文章存档
 
     
 
最新文章评论
  

对已经存在或者更改过的文件怎样加解密?
 

如果编号能修改就好了
 

[表情]
 

感谢前辈指路。。
 

你好,怎么打印啊?怎么注册?
   
帮助中心 | 空间客服 | 投诉中心 | 空间协议
©2012 Baidu