Delpi在MDI窗口中显示图形控件及指定背景的解决方案

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

在使用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窗口从此多姿多彩。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航