login.~pas

使用delphi自带的控件

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TfrmLogin = class(TForm)
    edtUserName: TLabeledEdit;
    edtPassword: TLabeledEdit;
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
  private
    { Private declarations }
  protected
    function GetUserName: string;
    function GetPassword: string;

    procedure SetUserName(Value: string);
    procedure SetPassword(Value: string);
  public
    { Public declarations }
    //窗体的调用者可以通过属性Password和UserName来访问或者设置窗体上
    //用户名和口令输入框的内容
    property UserName: string read  GetUserName write SetUserName;
    property Password: string read  GetPassword write SetPassword;
  end;

var
  frmLogin: TfrmLogin;

implementation

{$R *.dfm}

function TfrmLogin.GetUserName: string;
begin
  Result := edtUserName.Text;
end;


function TfrmLogin.GetPassword: string;
begin
  Result := edtPassword.Text;
end;

procedure TfrmLogin.SetUserName(Value: string);
begin
  edtUserName.Text := Value;
end;


procedure TfrmLogin.SetPassword(Value: string);
begin
  edtPassword.Text := Value;
end;



end.