ugroupform.pas

来自「delphi 开发OPc工业通讯 delphi 开发OPc工业通讯」· PAS 代码 · 共 45 行

//******************************************************************************
// sOPC created by ACHAT SOLUTIONS GmbH, http://www.achat-solutions.de/
//******************************************************************************
unit uGroupForm;

interface

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

type
  TFGroupForm = class(TForm)
    Timer: TTimer;
    procedure TimerTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    inTimer: boolean;
  public
    OPCGroup: TObject;
  end;

implementation

{$R *.DFM}

uses
  uOPCGroup;

procedure TFGroupForm.TimerTimer(Sender: TObject);
begin
  if inTimer then exit;
  inTimer := True;
  sOPCGroup(OPCGroup).Timer;
  inTimer := False;
end;

procedure TFGroupForm.FormCreate(Sender: TObject);
begin
  inTimer := False;
end;

end.