?? 00203.htm
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>1</title>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF">
<p align="left"><span style="BACKGROUND-COLOR: #ff0000"><a href="00203.zip">源程序下載</a></span><b><span style="background-color: #000080"><br>
</span><span style="background-color: #000000"><br>
</span><span style="background-color: #000080"><a name="1"></a>1：程序啟動畫面</span></b>
<br>
在啟動程序之前出現啟動畫面的方法多得是，但有些是調用“記時器”來延時的，這種方法有時拖慢了程序的啟動速度，下面介紹又一方法，給大家參考對比一下。<br>
建一個啟動封面窗體，假設為Form2，先設置好BorderIcons、BorderStyle、FormStyle、Position，接著在窗體上加入圖片框、文本框，設置好后在菜單里選Project里的Options，把Form2從Auto-create forms里轉到Available forms。再接著就是按Ctrl+F12鍵，選Project1，出現工程單元，其內容如下<br>
Application.CreateForm(TForm1, Form1);<br>
Application.Run;<br>
<br>
在Application.CreateForm(TForm1, Form1); 前加入如下語句：<br>
form2:=tform2.create(application);<br>
form2.Show;<br>
form2.Update;<br>
然后在Application.Run;前面加入如下語句：<br>
form2.hide;<br>
form2.free;<br>
<br>
在Form1的OnCreate事件中Delay過程，是為了延時，讓程序處效果，在實際應用過程中，可以把這句去掉。<br>
<span style="background-color: #000000"><br>
</span>
<b><span style="background-color: #000080"><a name="2"></a>2：控制窗體</span></b>
</p>
<p><br>
如何在 Delphi 中把 Form 控制成不能放大/縮小/移動/關閉？1、把 Form 的 BorderIcons 下的幾個子屬性值全改為 False;2、修改 Form 的 BorderStyle 的值為bsSingle ;3、為了讓窗口不能移動,可以自已攔下 WM_NCHITTEST 消息, 對該消息的處理為：一律回應鼠標點在窗口的 Client 區域, 相信這個視窗就呆呆的不會動了。在Form的Private中申明一個過程Procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;，其定義如下：<br>
procedure TForm1.WMNCHitTest(var Msg: TMessage);<br>
begin<br>
inherited; // 這樣,移動就不可能了...<br>
Msg.Result := HTCLIENT;<br>
end;<br>
就可以實現你的要求了，別忘了，這時候，你就沒有辦法去關閉窗口了，必須有個命令去關閉窗口，在這個例子里面，筆者是添加了Button1:TButton，響應OnClick事件時去關閉窗口。<br>
<br>
<b><span style="background-color: #000080">
<a name="3"></a>
3：查閱可視窗口標題 <br>
</span></b> 下面只是舉出一個例子提供參考:運用API函數GetWindow()配合GetWindowText()逐一查出各視窗的標題當擊打Button2時，執行結果顯示到Memo1中去。<br>
procedure TForm1.Button2Click(Sender: TObject);<br>
var<br>
hCurrentWindow: LongWord;<br>
szText: array[0..254] of char;<br>
begin<br>
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);<br>
while hCurrentWindow <> 0 do<br>
begin<br>
if GetWindowText(hCurrentWindow, @szText, 255)>0 then<br>
Memo1.Lines.Add(StrPas(@szText));<br>
hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);<br>
end;<br>
end;<br>
<br>
<span style="background-color: #FF0000"><a href="00203.zip">源程序下載</a></span>
</p>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -