win32_makefile/gui_delphi/netmon.pas

   1 unit Netmon;\r
   2 \r
   3 interface\r
   4 \r
   5 uses\r
   6   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,\r
   7   Dialogs, StdCtrls, ExtCtrls;\r
   8 \r
   9 type\r
  10   TNetmonForm = class(TForm)\r
  11     Button1: TButton;\r
  12     Button2: TButton;\r
  13     RadioGroup1: TRadioGroup;\r
  14     procedure Button1Click(Sender: TObject);\r
  15     procedure Button2Click(Sender: TObject);\r
  16     procedure FormCreate(Sender: TObject);\r
  17   private\r
  18     { Private declarations }\r
  19   public\r
  20     { Public declarations }\r
  21   end;\r
  22 \r
  23 var\r
  24   NetmonForm: TNetmonForm;\r
  25 \r
  26 implementation\r
  27 \r
  28 {$R *.dfm}\r
  29 \r
  30 procedure TNetmonForm.Button1Click(Sender: TObject);\r
  31 begin\r
  32   NetmonForm.close();\r
  33 end;\r
  34 \r
  35 procedure TNetmonForm.Button2Click(Sender: TObject);\r
  36 begin\r
  37   RadioGroup1.ItemIndex:=-1;\r
  38   NetmonForm.close();\r
  39 end;\r
  40 \r
  41 procedure TNetmonForm.FormCreate(Sender: TObject);\r
  42 begin\r
  43   RadioGroup1.ItemIndex:=2;\r
  44 end;\r
  45 \r
  46 end.\r