+++ /dev/null
-unit Netmon;\r
-\r
-interface\r
-\r
-uses\r
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,\r
- Dialogs, StdCtrls, ExtCtrls;\r
-\r
-type\r
- TNetmonForm = class(TForm)\r
- Button1: TButton;\r
- Button2: TButton;\r
- RadioGroup1: TRadioGroup;\r
- procedure Button1Click(Sender: TObject);\r
- procedure Button2Click(Sender: TObject);\r
- procedure FormCreate(Sender: TObject);\r
- private\r
- { Private declarations }\r
- public\r
- { Public declarations }\r
- end;\r
-\r
-var\r
- NetmonForm: TNetmonForm;\r
-\r
-implementation\r
-\r
-{$R *.dfm}\r
-\r
-procedure TNetmonForm.Button1Click(Sender: TObject);\r
-begin\r
- NetmonForm.close();\r
-end;\r
-\r
-procedure TNetmonForm.Button2Click(Sender: TObject);\r
-begin\r
- RadioGroup1.ItemIndex:=-1;\r
- NetmonForm.close();\r
-end;\r
-\r
-procedure TNetmonForm.FormCreate(Sender: TObject);\r
-begin\r
- RadioGroup1.ItemIndex:=2;\r
-end;\r
-\r
-end.\r