6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
\r
7 Dialogs, StdCtrls, ExtCtrls;
\r
10 TNetmonForm = class(TForm)
\r
13 RadioGroup1: TRadioGroup;
\r
14 procedure Button1Click(Sender: TObject);
\r
15 procedure Button2Click(Sender: TObject);
\r
16 procedure FormCreate(Sender: TObject);
\r
18 { Private declarations }
\r
20 { Public declarations }
\r
24 NetmonForm: TNetmonForm;
\r
30 procedure TNetmonForm.Button1Click(Sender: TObject);
\r
35 procedure TNetmonForm.Button2Click(Sender: TObject);
\r
37 RadioGroup1.ItemIndex:=-1;
\r
41 procedure TNetmonForm.FormCreate(Sender: TObject);
\r
43 RadioGroup1.ItemIndex:=2;
\r