?? 00204.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="00204.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:限制Form的大小</span></b><br>
使用過DELPHI的朋友都會(huì)注意到DELPHI本身最上面的窗口,當(dāng)它極大時(shí)只占屏幕的一小部分,它是如何實(shí)現(xiàn)的呢,請(qǐng)看下面的說明:<br>
1)在FORM私有聲明部分加上如下一行:<br>
procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;<br>
2)在聲明部分加上如下幾行:<br>
procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );<br>
begin<br>
with Message.MinMaxInfo^ do<br>
begin<br>
ptMaxSize.X := 200; {最大化時(shí)寬度}<br>
ptMaxSize.Y := 200; {最大化時(shí)高度}<br>
ptMaxPosition.X := 99; {最大化時(shí)左上角橫坐標(biāo)}<br>
ptMaxPosition.Y := 99; {最大化時(shí)左上角縱坐標(biāo)}<br>
end;<br>
Message.Result := 0; {告訴Windows你改變了 minmaxinfo}<br>
inherited;<br>
end;<b><span style="background-color: #000080"><br>
</span>
<span style="background-color: #000000"><br>
</span>
<span style="background-color: #000080"><a name="2"></a>2:Form生成時(shí)的事件次序 </span>
</b><br>
Form 產(chǎn)生的""個(gè)過程中, 各事件發(fā)生與執(zhí)行的次序,如果是一般的 SDI Form, 各事件的發(fā)生次序如下:<br>
OnCreate<br>
OnShow<br>
在屏幕上看到這個(gè)視窗<br>
OnActivate<br>
OnPaint<br>
<br>
如果是 MDI 視窗, 而 MdiChild 的第一個(gè)子視窗是在程式啟動(dòng)時(shí), 就出現(xiàn)在MdiForm中的話,<br>
那麼,各事件的次序是:<br>
主視窗的 OnCreate<br>
子視窗的 OnCreate<br>
子視窗的 OnShow<br>
子視窗的 OnActivate<br>
主視窗的 OnShow<br>
在屏幕上看到主視窗及第一個(gè)子視窗<br>
主視窗的 OnPaint<br>
<br>
在這里也捎帶說一下,F(xiàn)orm關(guān)閉時(shí)間的響應(yīng)的先后順序是:<br>
CloseQuery OnCloseQuery<br>
Close OnClose<br>
Deactivate OnDeactivate<br>
Hide OnHide<br>
Destroy OnDestroy<b><span style="background-color: #000080"><br>
</span><span style="background-color: #000000"><br>
</span><span style="background-color: #000080"><a name="3"></a>3:在窗體上設(shè)置一個(gè)熱鍵</span></b>
</p>
<p><br>
在窗體的FORM ONKEYDOWN事件中加入:<br>
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);<br>
begin<br>
if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then ShowMessage('Ctrl-A');<br>
end;<br>
<br>
<br>
<br>
<span style="background-color: #FF0000"><a href="00204.zip">源程序下載</a></span>
</p>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -