日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

靈活運(yùn)用Delphi制作濺射屏幕

靈活運(yùn)用Delphi制作濺射屏幕

更新時間:2022-05-14 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

精心編寫的WINDOWS程序顯示啟動注意事項(xiàng),稱之為濺射屏幕(splash screen)。利用一點(diǎn)兒小小的內(nèi)容,即可給程序的顯示添加不少色彩。

  由于工程本身創(chuàng)建程序的主窗口,且啟動濺射屏幕必須在創(chuàng)建主窗口之前出現(xiàn),所以工程文件必須創(chuàng)建自己的啟動屏幕。這意味著用戶必須修改源代碼來創(chuàng)建工程文件,而這通常在DELPHI編程中是不需要的。下面的過程介紹了濺射屏幕的建立過程。

  1、開始一個新的工程。將窗體命名為MainForm,同時將其Caption屬性設(shè)置為SplashinDemo。把這個工程保存在一個目錄中,如C:ProjectsSplashin。把MainForm的單元命名為Main,把工程文件命名為Splashin。

  2、在MainForm中插入一個Button組件。將Button的Name屬性改為ExitButton,而將其Caption屬性改為Exit。為ExitButton的OnClick事件創(chuàng)建一個處理器,在過程的begin和end關(guān)鍵詞之間插入Close;語句。

  3、選取File|New Form命令,或者單擊New Form速度按鈕。添加一個新的窗體。

  4、將這個窗體的Name屬性改變?yōu)镾plashForm,刪除其Caption屬性。此外,將其BorderStyle屬性改變?yōu)閎snone,同時將BorderIcons下的三個子值設(shè)置為False。

  5、保存這個工程。當(dāng)Delphi提示讀者提供單元文件名時,要確信當(dāng)前目錄為正確的目錄。為SplashForm的單元文件名輸入Splash。

  6、將SplashForm的Enabled屬性設(shè)置為False。這里不想讓用戶能夠給窗口提供鍵盤和鼠標(biāo)命令,這是極少見的情況之一。在這個例子中,我們想讓程序?qū)plashForm的顯示擁有完全的控制權(quán)。

  7、由于窗口沒有輪廓,所以從Additional組件類中插入一個Bevel組件對象。這有助于定義窗口的邊緣。將Bevel1的Align屬性設(shè)置為alClient。同時,將對象的Shape屬性改變?yōu)閎sFrame,將其Style屬性改變?yōu)閎sRaised。這些值由使用者來確定。

  8、在SplashForm中插入想使用的組件,在這里不要插入任何按鈕或者其他相互作用的控件。應(yīng)用程序本身顯示和去除啟動濺射對話框。

  9、選擇Project菜單。高亮顯示Splash工程個彈出式菜單。選擇Options命令。在所產(chǎn)生的Project Options對話框中,選取Forms頁標(biāo)簽。注意,MainForm和SplashForm位于自動創(chuàng)建的窗體列表中。高亮顯示每個窗體并單擊鼠標(biāo)右按鈕來將其移動到Available窗體。所有的Delphi窗體在運(yùn)行時都是在內(nèi)存中自動創(chuàng)建的,這要消耗內(nèi)存和系統(tǒng)資源。在這樣的一個案例中,程序是在運(yùn)行時創(chuàng)建窗體的,讀者應(yīng)該從自動創(chuàng)建的列表中刪除窗體。關(guān)閉ProjectOptions窗口。

  10、接下來,修改工程的源代碼,以便在顯示主窗口之前顯示濺射對話框。這里需要在工程文件中插入語句,以便與Splash.dpr工程文件相匹配。工程源代碼如下:

  program Project3;

  uses

   Forms,

   main in ‘main.pas‘ {MainForm},

   splash in ‘splash.pas‘ {SplashForm};

  {$R *.RES}

  begin

   SplashForm:=TSplashForm.Create(Application);

   SplashForm.Show;

   SplashForm.Update;

   Application.CreateForm(TMainForm,MainForm);

   SplashForm.Close;

   Application.Run;

  end.

  11、如果這時編譯和運(yùn)行程序,它就非常快速地顯示和去除啟動濺射對話框,以至用戶可能沒機(jī)會見到它。為了強(qiáng)迫對話框保持幾秒鐘的可見時間,請選取程序的MainForm。為窗體的OnCreate命令創(chuàng)建一個處理器。在關(guān)鍵詞的前面添加一個名為stopTime的長整型變量。在begin和end之間插入兩個語句:一個為對Windows GetTickCount函數(shù)的調(diào)用。來將stopTime設(shè)置為Windows已在運(yùn)行的秒數(shù);另一個語句為while語句,這個語句另外延遲2秒鐘。程序清單如下:

  unit main;

  interface

  uses

   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

   StdCtrls;

  type

   TMainForm = class(TForm)

    Exitbutton: TButton;

    procedure ExitbuttonClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

   private

    { Private declarations }

   public

    { Public declarations }

   end;

  var

   MainForm: TMainForm;

  implementation

  {$R *.DFM}

  procedure TMainForm.ExitbuttonClick(Sender: TObject);

  begin

   close;

  end;

  procedure TMainForm.FormCreate(Sender: TObject);

  var

   stopTime:LongInt;

  begin

   stopTime:=GetTickCount div 1000;

   while ((GetTickCount div 1000)<(stopTime+2)) do

   Sleep(1);

  end;

  end.

  12、按F9編譯、運(yùn)行程序。 

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 亚洲欧美一区二区三区四区 | 色狠狠一区二区三区香蕉蜜桃 | 欧美最猛性xxxxx图片 | 奇米影视777四色米奇影院 | 亚洲福利网址 | 亚洲精品15p | 亚洲成人免费看 | 久久久久久久久女黄9999 | 又黄又爽又色的黄裸乳视频 | 国产欧美一区二区三区小说 | 午夜做性视频 | 午夜在线视频免费 | 超91在线| 国产精品亚洲精品日韩已方 | 国产精品黄在线观看免费网站 | 久久综合综合久久狠狠狠97色 | 99久久免费精品 | 999精品视频这里只有精品 | 亚洲伊人tv综合网色 | 国产高清资源网站在线观看 | 欧美成人免费午夜影视 | 三级国产日产 | 日本xxx高清免费视频 | 国产精品边做边接电话在线观看 | 青青青青青青青草 | 欧美男男gayvidos | 91夜色视频 | 国产精品视频网站 | 岛国性视频播放免费视频 | 久色影视| 蜜桃久久 | 香蕉久久夜色精品国产尤物 | 成人免费在线视频网站 | 国产成人福利视频在线观看 | 欧美日韩一区二区三区色综合 | 国产在线拍揄自揄视频不卡99 | 99日精品欧美国产 | 国产精品麻豆入口 | 天天狠天天干 | 日韩理论片在线观看 | 日本视频黄 |