急！！求助！！现有一delphi信息管理系统，如何添加登录窗体 - 编程论坛

#2

aaa0008302011-05-19 22:16

直接新增一个Form 窗体

#3

yuankeping2011-05-21 12:16

新增加一个窗体，将其设置为主窗体，这样系统运行时就先弹出登录窗体，我也是刚学，不知道对不对，抛砖引玉了

#4

dugu08552011-05-27 10:05

新增FORM，设备为主窗体。设备登陆界面，编写验证程序。调试运行就可以看到效果了！

#5

zin59702011-06-01 14:17

新建个Form,然后修改程序的文件，在application.Run前只保留登陆窗体的创建

#6

小玉儿2011-06-02 15:10

在项目管理器里，添加一个form，更名load，在它的uses 添加主窗体的.pas源文件。然后在.dpr项目里添加代码如下：
.....
{$R *.res}
begin
  application.initialize;
  ......
begin
   .........
   begin
     load.showmodal;      ///////即为要添加的。
     application.run;
   end;
  end;
end.

#7

yuutian2011-06-05 17:12

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  mainfrm in 'mainfrm2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  form1 := tform1.Create(application);
  form1.ShowModal;
  if form1.frm_show = 1 then//frm_show設置為public,可在此調用
    Application.CreateForm(Tmainfrm2, mainfrm2);
  Application.Run;
end.

#8

yuutian2011-06-06 21:06

第一步：   file->new->application
第二步：   file->new->form     将窗体name属性改为frm_logo, borderstyle属性改为bsnone
第三步：   image->picture加载选择的图片设置align属性为alclent
第四步：   project->option   将frm_logo窗体从自动创建列表（auto_create forms)中排除
第五步：   编写红色部分代码
           application.initialize;
            frm_logo:=tfrm_logo.create(nil);//创建窗体
          frm_logo.show;//显示窗体
          frm_logo.update;//刷新窗体
          sleep(2000);//窗体停顿2秒时间
          frm_logo.close;//关闭窗体；
         application.createform（tform1,form1);
         application.run;

           application.run;

#9

Begin20112011-06-20 17:59

我觉得应该添加一个新的窗体
做成Splash窗体