thread_readcard.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 45 行

unit thread_readcard;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Buttons, StdCtrls, Mask, ToolEdit;

type
  readcard = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure paint;
  end;

implementation
uses readrecord,datamol,main;

{ Important: Methods and properties of objects in VCL can only be used in a
  method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure atdprocess.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ readcard }

procedure readcard.Execute;
begin
end;

procedure readcard.paint;
begin
//   formmain.update;
end;

end.