关于MDI窗口的三个问题,请高手解答! 在<<DELPHI 3.0 从入门到精通>> 中有非常详细的论述. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我找不到<<delphi3.0从入门到精通>>这本书,并且我使用的是delphi5.0 Delpi在MDI窗口中显示图形控件及指定背景的解决方案问题提出: 在使用MDI介面时,有时候需要在MDI客户窗口中显示一些图形或软件封面,使得软件介面不会显得空旷,软件功能也能一目了然。然而在Delphi中并没有直接给出这些接口。在MDI窗体中放入任何图形控件在运行时都不能显示。因此需要对MDI窗体进行改造。申明: 本方案仅针对MDI窗体,如果应用在非MDI窗体中,后果难说,你自已试试吧。 记住,窗体的FormStyle属性要设置为:fsMDIForm。解决方案: 1. 在MDI主窗体中无法接收到MDI客户窗口的消息(Message),因此,需要自已定义客户窗口的处理过程(Window Procedure),并接管MDI客户窗口(需在重载的CreateWnd过程中实现): procedure TMDIForm.CreateWnd; begin inherited; FNewWndProc := MakeObjectInstance(ClientWndProc); FOldWndProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC)); SetWindowLong(ClientHandle, GWL_WNDPROC, Longint(FNewWndProc)); end; 其中,ClientWndProc为自定义的窗口过程: procedure ClientWndProc(var Message: TMessage); FOldWndProc用来存放旧的窗口过程的指针。 2. 实现自已的客户窗口过程: procedure TMDIForm.ClientWndProc(var Message: TMessage); var R: TRECT; procedure Default; begin with Message do Result := CallWindowProc(FOldWndProc, ClientHandle, Msg, wParam, lParam); end; var PS: TPaintStruct; begin R := ClientRect; case Message.Msg of WM_PAINT: begin BeginPaint(ClientHandle,PS); try Canvas.Lock; try Canvas.Handle := PS.hdc; try Paint; if ControlCount > 0 then PaintControls(PS.hdc,Controls[0]); finally Canvas.Handle := 0; end; finally Canvas.Unlock; end; finally EndPaint(ClientHandle,PS); end; end; WM_ERASEBKGND: begin DrawBG(TWMEraseBkGnd(Message).DC); Message.Result := 1; end; WM_VSCROLL,WM_HSCROLL: begin InvalidateRect(ClientHandle,@R,true); Default; end; WM_SIZE: begin InvalidateRect(ClientHandle,@R,true); Default; end; else Default; end; end; 上面的DrawBG是用于画窗口背景的。 3. 实现窗口背景。 为了可以让继承者也能定义自已的背景,故此过程说明为virtual: protected procedure DrawBG(DC: HDC); virtual; 在此,DrawBG过程只是简单的填充窗口背景: procedure TMDIForm.DrawBG(DC: HDC); begin if Brush.Color <> clNone then FillRect(DC, ClientRect, Brush.Handle); end; 4. 综上所述,总结TMDIFrom类定义如下: TMDIForm = class(TForm) private FOldWndProc: TFarProc; FNewWndProc: TFarProc; procedure ClientWndProc(var Message: TMessage); protected procedure DrawBG(DC: HDC);virtual; procedure CreateWnd; override; end; 5. 经过以上改造后,就可以在DrawBG中画出指定的背景(需直接调用Windows 的GUI接口),或者直接使用图形控件,或者实现窗体的OnPaint事件,MDI窗口从此多姿多彩。 第二个问题是否指子窗口大小被改变? 如是,可修改 TForm的属性:Position为poDefaultPosOnly或poDesigned第三个问题 MDI的子窗口在最大化后和主窗口合并是 MDI的特性。 怎样才能完成子窗口最大化后子窗口也有最大化,最小化和关闭按钮? ===> 只要主窗口有主菜单栏。 第二个问题是否指子窗口大小被改变? 如是,可修改 TForm的属性:Position为poDefaultPosOnly或poDesigned第三个问题 MDI的子窗口在最大化后和主窗口合并是 MDI的特性。 怎样才能完成子窗口最大化后子窗口也有最大化,最小化和关闭按钮? ===> 只要主窗口有主菜单栏。 我的多文档的子窗口为什么在启动时就显示出来了。我将其在option中拖来非启动区,加载时用create加载,但连续加载两次时又要出错,有什么办法来解决这个问题? 需要这样做 : 比如 form1为MDIChild窗口,在子form1的onclose中这样写:action := cafree,form1 = nil;加载时,先判断是否存在,否则用create加载if form1<>nil then form1.show else create加载 试试这个方法吧:1.首先在MDI主窗口中声明一个变量. var Form1: TForm1; aPicture : TPicture; //这里增加一个变量声明. implementation .....2.在MDI主窗口的OnCreate中,写以下代码: procedure TForm1.FormCreate(Sender: TObject); begin aPicture := TPicture.Create; aPicture.LoadFromFile('C:\windows\tiles.bmp'); Brush.Bitmap:= aPicture.Bitmap; end;3.在MDI主窗体的OnDestroy中,释放该aPicture procedure TForm1.FormDestroy(Sender: TObject); begin aPicture.Free; end; 运行一下看看,效果怎么样? 简单吧,呵呵(windows95下图象的尺寸有点问题,98下正常)给点分啦.... 关于MDI主窗口和子窗口合并后的菜单混乱问题,请看前面的答案(用MDI搜索一下),好象是一个叫good...的回答的,答案正确有效 求Delphi 2009实现玻璃效果 关于Indy UDP控件传输一个问题 工具栏的问题!急!! 这样的程序怎么实现,请大家帮忙 求"关于分辨率控件" 报错:在单一线程模式下,试图在一个以上线程上进行呼叫。急 在线 谁有Mastering Delphi7 好书呀 如何获取一个SWF文件的原始图形大小? Application.Terminate 无法结束程序的问题 请大家提议:delphi编写大型办公系统比Lotus Notes好吗? Kingron求助:请推荐一个速度极快的站点,可以存放文件以便下载 三层数据库的问题,急!!!!
在使用MDI介面时,有时候需要在MDI客户窗口中显示一些图形或软件封面,使得软件介面不会显得空旷,软件功能也能一目了然。然而在Delphi中并没有直接给出这些接口。在MDI窗体中放入任何图形控件在运行时都不能显示。因此需要对MDI窗体进行改造。
申明:
本方案仅针对MDI窗体,如果应用在非MDI窗体中,后果难说,你自已试试吧。
记住,窗体的FormStyle属性要设置为:fsMDIForm。
解决方案:
1. 在MDI主窗体中无法接收到MDI客户窗口的消息(Message),因此,需要自已定义客户窗口的处理过程(Window Procedure),并接管MDI客户窗口(需在重载的CreateWnd过程中实现):
procedure TMDIForm.CreateWnd;
begin
inherited;
FNewWndProc := MakeObjectInstance(ClientWndProc);
FOldWndProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
SetWindowLong(ClientHandle, GWL_WNDPROC, Longint(FNewWndProc));
end;
其中,ClientWndProc为自定义的窗口过程: procedure ClientWndProc(var Message: TMessage);
FOldWndProc用来存放旧的窗口过程的指针。
2. 实现自已的客户窗口过程:
procedure TMDIForm.ClientWndProc(var Message: TMessage);
var
R: TRECT;
procedure Default;
begin
with Message do
Result := CallWindowProc(FOldWndProc, ClientHandle, Msg, wParam, lParam);
end;
var
PS: TPaintStruct;
begin
R := ClientRect;
case Message.Msg of
WM_PAINT:
begin
BeginPaint(ClientHandle,PS);
try
Canvas.Lock;
try
Canvas.Handle := PS.hdc;
try
Paint;
if ControlCount > 0 then
PaintControls(PS.hdc,Controls[0]);
finally
Canvas.Handle := 0;
end;
finally
Canvas.Unlock;
end;
finally
EndPaint(ClientHandle,PS);
end;
end;
WM_ERASEBKGND:
begin
DrawBG(TWMEraseBkGnd(Message).DC);
Message.Result := 1;
end;
WM_VSCROLL,WM_HSCROLL:
begin
InvalidateRect(ClientHandle,@R,true);
Default;
end;
WM_SIZE:
begin
InvalidateRect(ClientHandle,@R,true);
Default;
end;
else
Default;
end;
end;
上面的DrawBG是用于画窗口背景的。
3. 实现窗口背景。
为了可以让继承者也能定义自已的背景,故此过程说明为virtual:
protected
procedure DrawBG(DC: HDC); virtual;
在此,DrawBG过程只是简单的填充窗口背景:
procedure TMDIForm.DrawBG(DC: HDC);
begin
if Brush.Color <> clNone then
FillRect(DC, ClientRect, Brush.Handle);
end;
4. 综上所述,总结TMDIFrom类定义如下:
TMDIForm = class(TForm)
private
FOldWndProc: TFarProc;
FNewWndProc: TFarProc;
procedure ClientWndProc(var Message: TMessage);
protected
procedure DrawBG(DC: HDC);virtual;
procedure CreateWnd; override;
end;
5. 经过以上改造后,就可以在DrawBG中画出指定的背景(需直接调用Windows 的GUI接口),或者直接使用图形控件,或者实现窗体的OnPaint事件,MDI窗口从此多姿多彩。
如是,可修改 TForm的属性:Position为poDefaultPosOnly或poDesigned第三个问题
MDI的子窗口在最大化后和主窗口合并是 MDI的特性。
怎样才能完成子窗口最大化后子窗口也有最大化,最小化和关闭按钮?
===> 只要主窗口有主菜单栏。
如是,可修改 TForm的属性:Position为poDefaultPosOnly或poDesigned第三个问题
MDI的子窗口在最大化后和主窗口合并是 MDI的特性。
怎样才能完成子窗口最大化后子窗口也有最大化,最小化和关闭按钮?
===> 只要主窗口有主菜单栏。
在子form1的onclose中这样写:action := cafree,form1 = nil;加载时,先判断是否存在,否则用create加载
if form1<>nil then form1.show else create加载
1.首先在MDI主窗口中声明一个变量.
var
Form1: TForm1;
aPicture : TPicture; //这里增加一个变量声明.
implementation
.....
2.在MDI主窗口的OnCreate中,写以下代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
aPicture := TPicture.Create;
aPicture.LoadFromFile('C:\windows\tiles.bmp');
Brush.Bitmap:= aPicture.Bitmap;
end;3.在MDI主窗体的OnDestroy中,释放该aPicture
procedure TForm1.FormDestroy(Sender: TObject);
begin
aPicture.Free;
end;
运行一下看看,效果怎么样? 简单吧,呵呵(windows95下图象的尺寸有点问题,98下正常)
给点分啦....
叫good...的回答的,答案正确有效