?? 00207.htm
字號(hào):
<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="00207.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：閃動(dòng)標(biāo)題欄<br>
</span>
</b><br>
閃動(dòng)一個(gè)窗口的標(biāo)題欄意味著改變它的標(biāo)題欄的外觀，只要得到窗口的句柄，你就可以使用Windows 應(yīng)用程序編程接口（API）函數(shù)來使該窗口的標(biāo)題欄進(jìn)行閃動(dòng)。函數(shù)FlashWindows可以被用使一個(gè)特定的窗口閃動(dòng)一次。函數(shù)原形: <br>
function FlashWindow(const hwnd:Integer;const bInvert:LongBool):LongBool; <br>
該函數(shù)需要2個(gè)參數(shù)，第一個(gè)參數(shù)是要閃動(dòng)標(biāo)題欄的窗口的句柄，第二個(gè)參數(shù)用于指定是設(shè)置窗口的閃動(dòng)狀態(tài)，還是恢復(fù)其原始狀態(tài)。如果該bInvert參數(shù)為True，則表明窗口的標(biāo)題欄被閃動(dòng)，如果該參數(shù)為False，則表明窗口的標(biāo)題欄被恢復(fù)為原始狀態(tài)。 <br>
該函數(shù)所返回的值用于指定調(diào)用該函數(shù)前窗口的狀態(tài)，如果該返回值True，則表明窗口在調(diào)用該函數(shù)之前是活動(dòng)的，否則，如果返回值為False,則表明調(diào)用函數(shù)前窗口是非活動(dòng)的。 <br>
當(dāng)使用該FlashWindow函數(shù)時(shí)，一個(gè)較好的方法是將標(biāo)題欄閃動(dòng)的頻率設(shè)置為同脫字符（也即閃動(dòng)的光標(biāo)）相同，脫字符的閃動(dòng)頻率可以通過調(diào)用函數(shù)GetCaretBlinkTime來獲得。要使用該函數(shù)，需要將如下的聲明語句包含在你的窗體的通用聲明部分中： <br>
function GetCaretBlinkTime:Integer; //該函數(shù)返回用毫秒值表示的時(shí)間。 <br>
<br>
procedure TForm1.Button1Click(Sender: TObject);<br>
begin<br>
Timer1.Interval:=GetCaretBlinkTime;<br>
Timer1.Enabled:=Not Timer1.Enabled;<br>
end;<br>
<br>
procedure TForm1.Timer1Timer(Sender: TObject);<br>
begin<br>
FlashWindow(Form1.Handle,TRUE);<br>
end;<br>
<span style="background-color: #000000"><br>
</span>
<b><span style="background-color: #000080"><a name="2"></a>2：某些程序退出后在任務(wù)欄中留下一個(gè)空格，點(diǎn)一下才消失。如何處理？<br>
</span></b>
<br>
要解決這個(gè)問題，首先得找原因，造成這個(gè)問題，是因?yàn)镕orm的 WindowState= wsMaximized，而且 Form的BorderIcons 中沒有 biMaximize 屬性。如果From的BorderStyle的屬性是bsNone，只在BorderIcons中添加biMaximize還不能解決問題，必須得設(shè)置From的BorderStyle的屬性不為bsNone，比如說，是bsSingel等，為此可以有以下解決辦法： <br>
<br>
procedure TForm1.FormCloseQuery(Sender: TObject;var CanClose: Boolean); <br>
begin <br>
Form1.BorderIcons :=Form1.BorderIcons + [biMaximize]; <br>
Form1.BorderStyle := bsSingle ;<br>
end; <br>
<br>
<br>
<span style="background-color: #FF0000"><a href="00207.zip">源程序下載</a></span>
</p>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -