?? login.pas
字號:
unit Login;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxCntner, dxEditor, dxEdLib, StdCtrls, ExtCtrls, RzButton;
type
TfrmLogin = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
edUserName: TdxEdit;
edPwd: TdxEdit;
btOK: TRzBitBtn;
btCancel: TRzBitBtn;
procedure btOKClick(Sender: TObject);
procedure btCancelClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
UserName:string;
Pwd:string;
end;
var
frmLogin: TfrmLogin;
implementation
{$R *.dfm}
procedure TfrmLogin.btOKClick(Sender: TObject);
begin
UserName:=trim(edUserName.Text);
Pwd:=trim(edPwd.Text);
end;
procedure TfrmLogin.btCancelClick(Sender: TObject);
begin
UserName:='';
Pwd:='';
end;
procedure TfrmLogin.FormCreate(Sender: TObject);
var
i:Integer;
begin
//Application.ProcessMessages;
//AnimateWindow(Self.Handle, 350, AW_CENTER or AW_ACTIVATE or AW_BLEND);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -