大家请进来,想给程序添加一个启动画面和登录密码,密码最好能加密存在一表中。教教小弟吧。

解决方案 »

  1.   

    登陆窗体:
    program Project1;uses
      Forms,
      Unit1 in 'Unit1.pas' {MainForm},
      Unit2 in 'Unit2.pas' {LoginForm};{$R *.res}begin
      Application.Initialize;
      LoginForm:=TLoginForm.Create(Application);
      try
        LoginForm.Show;
        LoginForm.Update;
        Application.CreateForm(TMainForm, MainForm);
        Application.Run;
      finally
        LoginForm.Free;
      end;
    end.
      

  2.   

    其实还可以用timer控见实现。
      

  3.   

    我只知道启动画面的问题:
    新建一窗体form1,将其boderstyle属性设置为bsnone,添加一Timage控件,再放如你想要的图片,在工程属性里将其设置为非自动创建的窗体,接下来修改工程文件
    .....
      Form1:=TForm1.Create(application);
      Form1.Show;
      Form1.Refresh;
      Application.CreateForm(TMainForm, MainForm);//你程序的主窗体
      Form1.Hide;
      Form1.Free;
    ......