readme.txt

来自「TSecurity提供登陆/注销/修改口令的控件。(有源代码）工作在：D1 D2」· 文本 代码 · 共 47 行

TSecurity
Version 1.0
by Ma Jun


1. How to use this component?
  It can be used in two ways:
  (1). In Project file like this:

  program Project1;

  uses
    Forms,
    Unit1 in 'Unit1.pas' {Form1};

  {$R *.RES}

  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
// { add here }
// ----- Security1 is in Form1 --------  
    if Form1.Security1.Login then
    begin
      // Application.CreateForm(TForm2, Form2);
      Application.Run;
    end;
// -----------
  end.




  (2). also can set in Main form's OnActive event

  procedure TForm1.FormActivate(Sender: TObject);
  begin
    //  if not Security1.Login then Close;
  end;



email:[e-mail]
home page:http://go.163.com/~delphiws (in chinese)

You are free to use TSecurity for any purpose. If you do some
modification, please let me know.