?? main.pas
字號:
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, AxCtrls, ExtCtrls, Mask;
type
TOPCForm = class(TForm)
laDateTime: TLabel;
paServer: TGroupBox;
buShutDown: TButton;
paClients: TPanel;
laClients: TLabel;
laClientCount: TLabel;
laGroupCount: TLabel;
laGroup: TLabel;
buClose: TButton;
Timer: TTimer;
paPath: TPanel;
paIncrement: TPanel;
cbAuto: TCheckBox;
buIncrement: TButton;
edIncrement: TEdit;
buReset: TButton;
laValue: TLabel;
IncTimer: TTimer;
procedure buCloseClick(Sender: TObject);
procedure buShutDownClick(Sender: TObject);
procedure TimerTimer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure buIncrementClick(Sender: TObject);
procedure buResetClick(Sender: TObject);
procedure IncTimerTimer(Sender: TObject);
end;
var
OPCForm: TOPCForm;
implementation
{$R *.DFM}
uses
uOPC, uOPCDemo;
procedure TOPCForm.buCloseClick(Sender: TObject);
begin
Close;
end;
procedure TOPCForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
OPC.ShutDown;
end;
procedure TOPCForm.buShutDownClick(Sender: TObject);
begin
OPC.ShutDown;
end;
procedure TOPCForm.TimerTimer(Sender: TObject);
begin
laDateTime.Caption := DateTimeToStr(Now);
laClientCount.Caption := IntToStr(OPC.GetServerCount);
laGroupCount.Caption := IntToStr(OPC.GetGroupCount);
edIncrement.Text := IntToStr(uOPCDemo.Values[102]);
end;
procedure TOPCForm.FormCreate(Sender: TObject);
begin
paPath.Caption := GetCurrentDir;
end;
procedure TOPCForm.buIncrementClick(Sender: TObject);
var
i: integer;
begin
for i := Low(Values) to High(Values) do inc(Values[i]);
end;
procedure TOPCForm.buResetClick(Sender: TObject);
begin
ResetValues;
end;
procedure TOPCForm.IncTimerTimer(Sender: TObject);
begin
if cbAuto.Checked then IncrementValues;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -