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

當(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)下載排行

主站蜘蛛池模板: 另类ts人妖精品影院 | 大陆精品自在线拍国语 | 国产一区二区三区不卡在线观看 | 日本老妇乱子伦中文视频 | 日韩欧美一级毛片精品6 | 国产在线麻豆精品观看 | 四虎影院欧美 | 久久亚洲日本不卡一区二区 | 99国产大尺度福利视频 | 久草免费在线色站 | 成人在线视频一区 | fulidown国产精品合集 | 天天色图片| 国产精品久久久久aaaa | 337p粉嫩大胆噜噜噜鲁 | 免费人成在线蜜桃视频 | 91无限数破解版入口 | 干夜夜 | xxx日本在线 | 伊人久久成人成综合网222 | 四虎最新入口 | 亚洲欧洲精品久久 | 视频成人永久免费视频 | 久久久久久久成人午夜精品福利 | 亚洲欧美色图 | 91中文 | 色吊丝中文字幕 | 天天视频一区二区三区 | 日韩在线视频免费不卡一区 | 免费大片看黄在观看 | 久久久久久综合成人精品 | 欧美亚洲欧美日韩中文二区 | 国产一级久久久久久毛片 | 欧美亚洲网 | 天天欲色 | 亚洲国产成人在线视频 | 欧美性猛交ⅹxxx乱大交禽 | 亚洲色图22p | 亚州三级视频 | 午夜精品久久久久久 | 国产黄色在线观看 |