【delphi开源代码栏目提醒】：网学会员为需要delphi开源代码的朋友们搜集整理了frmLoginU.pas相关资料，希望对各位网友有所帮助!

    unit frmLoginU;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls;
    
    type
      TfrmLogin = class(TForm)
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        edtServer: TEdit;
        btnOk: TButton;
        btnCancel: TButton;
        cbxProtocol: TComboBox;
        edtUserName: TEdit;
        edtPassword: TEdit;
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      frmLogin: TfrmLogin;
    
    implementation
    
    {$R *.dfm}
    
    procedure TfrmLogin.FormCreate(Sender: TObject);
    begin
      cbxProtocol.ItemIndex := 0;
    end;
    
    end.