制作欢迎界面的代码,大家参考
登陆窗体命名為:loginform. 找到工程文件(Project -> View Source),找到如下代碼部分: begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(Tloginform, loginform); Application.Run;//到此,程序執行 end. 登陸窗體可以設置成在程序執行前創建: begin Application.Initialize;//初始化 loginform:=tloginform.Create(application);//動態創建啟動窗體 loginform.Show;//顯示 loginform.Update; sleep(2000);//系統延時2秒 loginform.Hide;//2秒后啟動窗體隱藏 Application.CreateForm(TForm1, Form1); Application.CreateForm(Tloginform, loginform); loginform.Free;//釋放啟動窗體 Application.Run; end.
制作啟動(歡迎)窗體的另一種方法(轉載...當然自己也使用過~~): 设置封面窗体属性使之符合启动封面要求。请修改下列封面窗体属性: Position = PoscreenCenter //运行时居于屏幕中央 Autosize = true //自动适应Image控件,使启动图片完整显示 BorderStyle = bsnone //窗口无标题栏及最大化、最小化及关闭按钮和边框 Name = splashform 程序代码解析 选择主菜单下的Project/View Scource 命令,打开这个项目的项目文件。根据下列代码进行修改。 program Project2; uses Forms,Controls, Unit1 in 'Unit1.pas' {MainForm}, Unit2 in 'Unit2.pas' {SplashForm}; {$R *.res} begin Application.Initialize; SplashForm :=TSplashForm.Create(Application); //创建splash窗体 SplashForm.ShowModal; //以模式对话框的方式显示splash窗体 if (SplashForm.ModalResult = mrOK) then //如果定时时间到或单击了窗体上的图形 begin Application.Title := '测试Splash窗体'; //设置应用程序的标题 Application.CreateForm(TMainForm, MainForm); //自动方式创建的主窗体 SplashForm.Hide; //将启动封面窗体隐藏 SplashForm.Release; //将启动封面窗体清除 Application.Run; end; end. 随后在splash窗体上编写下列事件代码 procedure TSplashForm.Timer1Timer(Sender: TObject); begin SplashForm.ModalResult:= mrOK; //定时时刻到后的事件处理程序 end; procedure TSplashForm.Image1Click(Sender: TObject); begin SplashForm.ModalResult:= mrOK; //单击splash窗体上图像的事件处理程序 ,當用戶希望可以單擊啟動窗體的圖片,而不用等待就可以進入//主窗體時,可以加上這一條件 end;
|
请发表评论