datashow.pas

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

unit DataShow;

interface

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

type
  TfrmDataShow = class(TForm)
    PageControl1: TPageControl;
    tabWatchdog: TTabSheet;
    tabBufA: TTabSheet;
    tabBufferB: TTabSheet;
    memBufA: TMemo;
    memStatus: TMemo;
    memBufB: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    hFile : Integer;
  public
    { Public declarations }
  end;

var
  frmDataShow: TfrmDataShow;

implementation

uses Init;

{$R *.DFM}

procedure TfrmDataShow.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frmInit.SetFocus;
end;

end.