在Delphi的MDI应用程序中，如何实现导航图啊？如同用友软件中的底层窗体。(100分)

逍

逍遥泿子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-07

• #1

在开放商业管理软件中，程序导航图是很重要的。一般是单独的一个Form。
但在多文档中。其中的 导航FORM 经常跑到 应用子窗体上面了。而且，主窗体如果太小，
就出现了不该有的滚动条/
我看了用友财务软件中的导航FORM，其就像是画在主窗体中的一样。子窗体打开时，其
也不上浮盖住子窗体。而且看不出其导航图就是一个窗体。 而速达的就不行，
其明显是一个子窗体。
有没有人做过这样的多文档窗体啊？？？ 恭候了···
能提供可行的方案，分不够再加啊！

 

J

jswqg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #2

我关注，再出100分。

 

K

kkyy.kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #3

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1144133

 

W

WiseAnt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #4

操!很是讨厌kkyy.kkyy这种鸟人灌水都不是这种灌法!!!!!
现在大富翁上这种鸟人越来越多了, 我的贴子也深受其害!
再操!!!!!

 

逍

逍遥公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-14

• #5

找一下MDI的背景图这样的帖子吧,记得有很多人讨论过的
咱俩名字差不多,呵呵

 

逍

逍遥泿子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-14

• #6

TO 逍遥公子：
可能你没有理解我的意思，导航图一般是有很多窗体对象，主要是页面切换。
当然还有用户按钮什么的。
在MDI 中设置社会公窗体，只能是MDIchild, 但其效果不是很好。用友的导航图不错
不知是采用什么方式作的。

 

N

netbirdfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-16

• #7

觉得是setwindowstop的问题 注意以下参数，

 

逍

逍遥泿子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-21

• #8

看来，就个问题不是很好解决的了？ 有谁做过MDI的导航图界面吗？ 能否指导下。
如果有源码？能否参照下。。
eMail: remix2002@163.com

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-22

• #9

：WiseAnt，我虽然在此发了一行”广告“，但是你一句话里面带了多少个粗话，你数过没有？
呵呵，俺们不那么时髦，不会和你干那事，你还是找你自己的家人干吧。。

 

W

wangyang_1031

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-22

• #10

学习!

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-23

• #11

：逍遥泿子,我这也不是纯粹“广告”，因为我的系统就不会出现了不该有的滚动条.

 

L

lfpsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-23

• #12

关注！

 

Y

YoungSun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-28

• #13

这样能不能满足你的要求：
在mdi父窗口的背景上画图，然后在click事件中检查用户的点击位置，并根据需要切换背景图。
我试了一下，完全是可行的，但还有一个问题是如果屏幕分辨率改变，主要是变大后会不好看。
画背景，image1设为不可视，注意图片格式最好只用bmp。
procedure TForm1.FormCreate(Sender: TObject);
begin
self.Brush.Bitmap := image1.Picture.Bitmap;
end;
我想可不可以自己在背景上画图，这样可以检测分辨率，如果太大的话，把导航图画在中央，
设置背景色与导航图国家边缘色相同。
但这样不行：
procedure TForm1.FormPaint(Sender: TObject);
var
dc:HDC;
begin
dc:=GetDC(handle);
bitblt(dc,0,0,width,height,image1.Canvas.Handle,0,0,srcCOPY);
ReleaseDC(handle,dc);
end;

 

热

热水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #14

其实简单，我曾经做过这样的程序。
即MDIForm在onshow中创建子窗体,
在子窗体的分成两个部分左边（通称左帧放图片按纽），右边放 panel,在panel上再放
pagecontrol,然后用Frame实现我们的不同模块内容，最后调用时把Frame赋值给

pagecontrol.tabcontrol1就可。