讲mdichild 窗口的 WindowState属性设为wsMaximized
不过我觉得你的意思不是这个,请说清楚好吗?
不过我觉得你的意思不是这个,请说清楚好吗?
解决方案 »
- fsMDIChild窗口"闪"的问题续集
- DBGrid使用Crtl+鼠标可以实现多行选择,如果只用鼠标可以实现多行选择吗?
- 如何使DBEdit失去焦点时不自动改变数据库
- 请问大家都是用什么工具来制作帮助文件的?
- 请教listView中怎样修改subitem的字体颜色?
- 大家,代码没有错,但是出现了下面的问题,该怎么调呢?
- 怎样实现realplay连续播放??
- 怎样动态地在程序中生成TADOQuery组件?
- 一个简单的问题!请各位赐教!
- 请问谁知道哪里有象OICQ里的分组控件,DELPHI用的。
- 有谁知道如何控制DELPHI VCL中的DBCONSTS单元。详情请进!回答的都有分!!
- 有关软件打包的小问题--大家讨论!!!(参者有分)
Mdichild 窗口的 WindowState属性设为wsMaximized
创建主窗口时没问题,
但再打开其他Mdichild,再还原,背景Mdichild也跟着变小了
PROCEDURE TFrm_Main.ClientWndProc(VAR Message: TMessage);
VAR
BkgCanvas:TCanvas;
LeftTop,RightBottom:TPoint;
begin
with Message do
case Msg of
WM_ERASEBKGND:
begin
//LeftTop:=ClientToScreen(Point(PanelBGD.Left,PanelBGD.Top));
//RightBottom:=ClientToScreen(Point(PanelBGD.Left+PanelBGD.Width,PanelBGD.Top+PanelBGD.Height));
LeftTop:=Point(frm_Main.Left,frm_Main.Top);
RightBottom:=Point(frm_Main.Left+frm_Main.Width,frm_Main.Top+frm_Main.Height);
BkgCanvas:=TCanvas.Create;//在FormClose中释放
BkgCanvas.Handle:= TWMEraseBkGnd(Message).DC;
BkgCanvas.StretchDraw(Rect(0,0,
RightBottom.x-LeftTop.x,
RightBottom.y-LeftTop.y),
Image1.Picture.Graphic);
BKGCanvas.Free;
Result := 1;
end;
else
Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
end;
end;
是html