📄 00207.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="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：闪动标题栏<br>
</span>
</b><br>
闪动一个窗口的标题栏意味着改变它的标题栏的外观，只要得到窗口的句柄，你就可以使用Windows 应用程序编程接口（API）函数来使该窗口的标题栏进行闪动。函数FlashWindows可以被用使一个特定的窗口闪动一次。函数原形: <br>
function FlashWindow(const hwnd:Integer;const bInvert:LongBool):LongBool; <br>
该函数需要2个参数，第一个参数是要闪动标题栏的窗口的句柄，第二个参数用于指定是设置窗口的闪动状态，还是恢复其原始状态。如果该bInvert参数为True，则表明窗口的标题栏被闪动，如果该参数为False，则表明窗口的标题栏被恢复为原始状态。 <br>
该函数所返回的值用于指定调用该函数前窗口的状态，如果该返回值True，则表明窗口在调用该函数之前是活动的，否则，如果返回值为False,则表明调用函数前窗口是非活动的。 <br>
当使用该FlashWindow函数时，一个较好的方法是将标题栏闪动的频率设置为同脱字符（也即闪动的光标）相同，脱字符的闪动频率可以通过调用函数GetCaretBlinkTime来获得。要使用该函数，需要将如下的声明语句包含在你的窗体的通用声明部分中： <br>
function GetCaretBlinkTime:Integer; //该函数返回用毫秒值表示的时间。 <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：某些程序退出后在任务栏中留下一个空格，点一下才消失。如何处理？<br>
</span></b>
<br>
要解决这个问题，首先得找原因，造成这个问题，是因为Form的 WindowState= wsMaximized，而且 Form的BorderIcons 中没有 biMaximize 属性。如果From的BorderStyle的属性是bsNone，只在BorderIcons中添加biMaximize还不能解决问题，必须得设置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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -