📄 008.htm

📁 Delphi书籍--Delphi网上教程
💻 HTM
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--用户界面-->给MDI主窗口加背景</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--用户界面 给MDI主窗口加背景">
<META NAME="description" CONTENT=" - DELPHI专题--用户界面 - 给MDI主窗口加背景">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index1.html">返回</a>

<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>

<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">给MDI主窗口加背景</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p>在MDI程序中,由于MDI的主窗口一般的功能是提供子窗口显示的位置和提供菜单、工具条、状态条等，而窗口的客户区则一般不会有其它的用途，如果在这里画上一些软件的标志、公司的标志或者其它的背景图案的话，不仅可以使MDI的主窗口更加充实、美观，而且还可以更加突出公司的形象和增加公司标志在客户心中的地位。
<br>
<br>
由于MDI主窗口的特性，使用普通OnPaint和使用TImage等方法都不会产生作用。下面将用编写一个简单的MDI程序来介绍如何实现。
<br>
<br>
第一步：打开Delphi(Delphi 1,2,3都可以)，创建一个新的工程。 <br> 
第二步：将Form1的FormStyle设置为fsMDIForm，设置成MDI的主窗口。 <br> 
第三步：在Form1上增加一个Image元件，并选择要设置的背景到Image的Picture中。 
<br> 
第四步：在Form1的Private中定义： <br> 
FClientInstance, <br> 
FPrevClientProc : TFarProc; <br> 
PROCEDURE ClientWndProc(VAR Message: TMessage); <br> 
第五步：在实现(implementation)中加入上述过程的具体内容： <br> 
PROCEDURE TForm1.ClientWndProc(VAR Message: TMessage); <br> 
VAR <br> 
MyDC : hDC; <br> 
Ro, Co : Word; <br> 
begin <br> 
with Message do <br> 
case Msg of <br> 
WM_ERASEBKGND: <br> 
begin <br> 
MyDC := TWMEraseBkGnd(Message).DC; <br> 
FOR Ro := 0 TO ClientHeight DIV Image1.Picture.Height DO <br> 
FOR Co := 0 TO ClientWIDTH DIV Image1.Picture.Width DO <br> 
BitBlt(MyDC, Co*Image1.Picture.Width, Ro*Image1.Picture.Height, <br> 
Image1.Picture.Width, Image1.Picture.Height, <br> 
Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY); <br> 
Result := 1; <br> 
end; <br> 
else <br> 
Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam); <br> 
end; <br> 
end; <br> 
<br> 
第六步：在Form1的创建事件中加入： <br> 
FClientInstance := MakeObjectInstance(ClientWndProc); <br> 
FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC)); <br> 
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance)); <br> 
<br> 
上面的步骤已经完成了MDI主窗口背景图案的设置，下面可以增加一个MDIChild窗口，实现MDI程序。 
<br> 
<br> 
第七步：新增加一个Form，并将FormStyle设置为fsMDIChild。 <br> 
<br> 
现在你可以编译运行这个程序，你会发现，Image元件并不会在Form上显示出来，但是整个Form的客户区域被Image中的图像所铺满。 
</p> 
<hr color="#EE9B73" size="1" width="94%"> 
 
</TD> 
 
</TR> 
</table> 
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -