这个问题比较麻烦,你去看看《DELPHI5程序员开发指南》,相信能找到答案。
解决方案 »
- 如何利用adoquery把select查询的结果insert到一个表中
- 打印出错,getlasterror=6,详细内容请进.
- 为何修改DATAGRID中数据时,第一次并没有读出需要修改的行信息?
- 水晶报表如何和数据库组件连接
- 能否在windows2000专业版中安装XP的远程桌面功能?
- 小弟有礼了,问个弱智问题“奇怪,表ID值居然始终为0。是怎么回事?”
- 动态创建控件问题
- 请问如何才能在程序里进行拨号并断开连接
- 怎样查找自己发过的帖?能不能做个链接,这样方便点。
- MDI程序,子窗口在DLL中。。。up 有分!千两、瓦匠们来看看啊
- 我真他妈的冤枉:
- Delphi以后真会支持.net吗?跟贴有分!!!!!!!!!!!(300分奉送,超越系统限制部分以后另加)
http://www.csdn.net/expert/topic/324/324179.xml
由于MDI主窗口的特性,使用普通OnPaint和使用TImage等方法都不会产生作用。下面将用编写一个简单的MDI程序来介绍如何实现。
第一步:打开Delphi,创建一个新的工程。
第二步:将Form1的FormStyle设置为fsMDIForm,设置成MDI的主窗口。
第三步:在Form1上增加一个Image元件,并选择要设置的背景到Image的Picture中。
第四步:在Form1的Private中定义:
FClientInstance,
FPrevClientProc : TFarProc;
PROCEDURE ClientWndProc(VAR Message: TMessage);
第五步:在实现(implementation)中加入上述过程的具体内容:
PROCEDURE TForm1.ClientWndProc(VAR Message: TMessage);
VAR
MyDC : hDC;
Ro, Co : Word;
begin
with Message do
case Msg of
WM_ERASEBKGND:
begin
MyDC := TWMEraseBkGnd(Message).DC;
FOR Ro := 0 TO ClientHeight DIV Image1.Picture.Height DO
FOR Co := 0 TO ClientWIDTH DIV Image1.Picture.Width DO
BitBlt(MyDC, Co*Image1.Picture.Width, Ro*Image1.Picture.Height,
Image1.Picture.Width, Image1.Picture.Height,
Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
Result := 1;
end;
else
Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam,
lParam);
end;
end;
第六步:在Form1的创建事件中加入:
FClientInstance := MakeObjectInstance(ClientWndProc);
FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));
上面的步骤已经完成了MDI主窗口背景图案的设置,下面可以增加一个MDIChild窗口,实现MDI程序。
第七步:新增加一个Form,并将FormStyle设置为fsMDIChild。
现在你可以编译运行这个程序,你会发现,Image元件并不会在Form上显示出来,但是整个Form的客户区域被Image中的图像所铺满。