source: trunk/Forms/UFormLogin.pas

unit UFormLogin;

{$mode delphi}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Menus,
  MaskEdit;

type

  { TFormLogin }

  TFormLogin = class(TForm)
    ButtonAdd: TButton;
    ButtonConnect: TButton;
    EditHost: TEdit;
    EditLogin: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    MainMenu1: TMainMenu;
    MaskEditPassword: TMaskEdit;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    procedure ButtonConnectClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    Initialized: Boolean;
  public

  end;

var
  FormLogin: TFormLogin;


implementation

{$R *.lfm}

uses
  UFormMain;

{ TFormLogin }

procedure TFormLogin.ButtonConnectClick(Sender: TObject);
begin
  FormMain := TFormMain.Create(nil);
  FormMain.Show;
  Hide;
end;

procedure TFormLogin.FormActivate(Sender: TObject);
begin
  if not Initialized then begin
    Initialized := True;
    ButtonConnect.Click;
  end;
end;

procedure TFormLogin.FormShow(Sender: TObject);
begin

end;

end.