應(yīng)用程序設(shè)計及框架-閱讀頁
2025-01-21 17:00本頁面
【正文】 atusbar組件中顯示鼠標(biāo)所指組件的提示信息。 本次要講內(nèi)容 ? 項目中的 Screen對象 ? 常用程序設(shè)計技巧 1. 使用資源文件 2. 修改屏幕分辨率 3. 避免程序重復(fù)運行 4. 設(shè)置程序運行權(quán)限 5. 顯示封面 6. 重新啟動與退出 項目中的 Screen對象 屬性名 含義 ActiveControl 它是只讀屬性，用于保存當(dāng)前屏幕上獲得焦點的組件。 Cursor 用于設(shè)置應(yīng)用程序的光標(biāo)形狀。 DataModules 保存應(yīng)用程序中的數(shù)據(jù)模塊列表。 Forms 保存應(yīng)用程序中的窗體列表。 Height 表示屏幕的高度 (以像素為單位 ) 。 Width 表示屏幕的寬度 (以像素為單位 ) 。 ? 使用資源文件前提條件： ： {$R 資源文件名 .res}。 注意 ：若在程序計期修改了資源文件，請使用Project→ Build All Projects重新編譯后再執(zhí)行程序。)。 其中 hInstance表示包含資源文件的當(dāng)前應(yīng)用程序?qū)ο蟆? 其中： lpDName:一般設(shè)置為 Nil。 lpDMode :是 TDevMode類型的指針變量，用于保 存獲取的顯示模式數(shù)據(jù)。 //顯示模式信息結(jié)構(gòu)列表 …… var DevModeCount: Integer。 //定義一個指向顯示模式的指針 begin DevModeArray := 。 GetMem(DevModeInfo, SizeOf(TDevMode))。 //將屏幕信息保存 Inc(DevModeCount)。 39。, 39。colors39。 GetMem(DevModeInfo, SizeOf(TDevMode))。 FreeMem(DevModeInfo, SizeOf(TDevMode))。 end。 其中： 1） lpDevMode是顯示模式數(shù)據(jù)的 TDevMode類型指針變量。 3）函數(shù)返回值：當(dāng)返回 DISP_CHANGE_SUCCESSFUL時 表示修改成功，當(dāng)返回 DISP_CHANGE_RESTART， 則表示重啟操作系統(tǒng)后才能使設(shè)置起作用。 begin {更改顯示模式，并修改注冊表 } ModeChange:=ChangeDisplaySettings(模式指針變量 , CDS_UPDATEREGISTRY)。動態(tài)改變屏幕分辨率成功 39。需要重新起動才能使設(shè)置起作用 39。 end。 ? 主要有兩種方法： 1. “查找窗口 ” 法； 2. “創(chuàng)建互斥對象 ” 。 FindWindow函數(shù)使用格式： FindWindow(類名 ,窗體標(biāo)題名） 。 例如 ： 將項目文件修改為如下格式： Var Hwnd:Thandle。TForm139。Main39。 //查找主窗體 If Hwnd=nil then //如果沒找到應(yīng)用程序的主窗體則啟動應(yīng)用程序 Begin 。 。 end運行 2. 使用互斥對象 ?本方法是在應(yīng)用程序中通過 CreateMutex函數(shù)創(chuàng)建互斥對象，若創(chuàng)建不成功，則說明系統(tǒng)已經(jīng)啟動，則系統(tǒng)不再啟動。 其中 ： ?參數(shù) lpMA是一個指向安全屬性的指針，一般使用空指針 nil，表示使用默認安全屬性。 ?參數(shù) lpName用于設(shè)置要創(chuàng)建的互斥對象名。 begin Mutex:=CreateMutex(NIL,True,39。)。 (TForm1, Form1)。 end。 end. 4. 設(shè)置應(yīng)用程序啟動權(quán)限 ?通過項目文件中加入判斷進入權(quán)限的代碼，解決戶身份的驗證問題。程序基本格式如下： ? 輸入口令 Password ? if 系統(tǒng)口令 =Password then ? begin ? 執(zhí)行啟動程序代碼 。 uses Forms, Dialogs, ChangeScreen in 39。 {Form1}。 {$R *.res} begin if InPutQuery(39。,39。,password) then begin if password= 39。 then //判斷登錄口令 begin 。 ?？诹畈徽_ ,程序終止 39。 end。 5. 顯示封面 ? 生成應(yīng)用程序正式啟動前的等待界面。 //創(chuàng)建封面 SplashFrm:=(Application)。 //顯示封面 。 //創(chuàng)建窗體結(jié)束 。常用 的函數(shù)有： ExitWindowsEx，其使用格式如下： ExitWindowsEx(uFlags,dwReserved)。 說明：函數(shù)的第二個參數(shù)由系統(tǒng)內(nèi)部使用，調(diào)用時為其賦0值即可；參數(shù) uFlags可取三個值，分別為： EWX_LOGOFF ： 注銷 EWX_REBOOTE ： 重新啟動 WX_SHUTDOWN ： 關(guān)閉系統(tǒng) 請看下面實例 ： 下面是一個按鈕的單擊事件： procedure (Sender: TObject)。 //關(guān)閉系統(tǒng) 1: Win32Check(ExitWindowsEx(EWX_SHUTDOWN,0))。 end。 小結(jié) 本章重點介紹了一個完整的應(yīng)用程序系結(jié)構(gòu)，詳細講解了 Application和 Screen對象在開發(fā)應(yīng)用程序時的重要應(yīng)用，及一些常用的開發(fā)技術(shù)
電大資料相關(guān)推薦
鄂ICP備17016276號-1