Context Navigation

UFormVirtualTerminal.pas

Last change on this file was 24, checked in by chronos, 13 years ago
Opraveno: Ladění komunikačního protokolu s terminálem BF-630.
File size: 844 bytes

Line
1	unit UFormVirtualTerminal;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
9	StdCtrls, ExtCtrls;
10
11	type
12	TVirtualTerminal = class
13	end;
14
15	{ TFormVirtualAccessControler }
16
17	TFormVirtualAccessControler = class(TForm)
18	ButtonPress: TButton;
19	Label1: TLabel;
20	Label2: TLabel;
21	Label3: TLabel;
22	LabelTime: TLabel;
23	SpinEditUser: TSpinEdit;
24	SpinEditKey: TSpinEdit;
25	Timer1: TTimer;
26	procedure Timer1Timer(Sender: TObject);
27	private
28	{ private declarations }
29	public
30	{ public declarations }
31	end;
32
33	var
34	FormVirtualAccessControler: TFormVirtualAccessControler;
35
36	implementation
37
38	{$R *.lfm}
39
40	{ TFormVirtualAccessControler }
41
42	procedure TFormVirtualAccessControler.Timer1Timer(Sender: TObject);
43	begin
44	LabelTime.Caption := DateTimeToStr(Now);
45	end;
46
47	end.
48

Note: See TracBrowser for help on using the repository browser.