?? readme.txt
字號:
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:junma@126.com
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -