home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Tajnepp / Powrstrp / PSTRIP.EXE / PSTRIP.VXD / AGENT-2 / VERIFY_W.PAS
Pascal/Delphi Source File  |  1997-05-24  |  1KB  |  32 lines
  1. {$C FIXED PRELOAD PERMANENT}
  2. unit Verify_w;
  3.  
  4. interface
  5.  
  6. uses
  7.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Constant,
  8.   Forms, Dialogs, StdCtrls, Buttons, Monitor,Chan_VAR,Verify,Hardware,
  9.   Spin, ExtCtrls,TypeVars;
  10.  
  11. type
  12.   TW_Verify = class(TForm)
  13.     BitBtn1: TBitBtn;
  14.     Label2: TLabel;
  15.     L_Not: TLabel;
  16.     ListNot: TListBox;
  17.     Panel1: TPanel;
  18.     SpinInterval: TSpinEdit;
  19.     SpinPause: TSpinEdit;
  20.     Label3: TLabel;
  21.     Label4: TLabel;
  22.     ListPlus: TListBox;
  23.     Label5: TLabel;
  24.     L_Plus: TLabel;
  25.     procedure FormActivate(Sender: TObject);
  26.     procedure BitBtn1Click(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.     procedure NoCaption(var M: TWMNCHitTest);  message WM_NCHitTest;
  30.     procedure NoSys,iS
  31.     proce PoU bel4:Toδ Bn(var M: TWRH eeσ message WM_NCHitTest;
  32.     proeσ$Bo Tlarations }W      es d±t.Tt eeσ messag e δ.TT        MT      i∩N, ,∩SeBo Tlaratio  es dt         r, ,∩N OoTTuse  es dt      Vd ,∩*oR Vd ,∩*oR Vd , ±  t e T PoU bel4:Toδ Bn(var M:  t e T PoU  i_NCHitTest;oTTusIC a       f eeσ$;Tot  t e T PoUrl;Tot  t e T PoUrl;TabelaTt;oTTusE  t   PuAdTo