当前位置:主页>销售管理软件> 列表

我想控制[B表单]若显示,则只能显示在[A表单]的前面,这

记账软件版1楼: 我想控制[B表单]若显示,则只能显示在[A表单]的前面,这里的[B表单]不能设置formstyle为fsStayOnTop,因如果这样则[B表单]就会显示在所有表单之前,我想要的是[B表单]只显示显示在[A表单]的前面,并不所有表单之前。那位富翁有办法????

2楼: bform.ShowModal 可以吧 如简单的进销存软件

3楼: jfyes:
我需要的是[B表单]显示在[A表单]的前面,但光标是在[A表单]上的,如果用ShowModal模式,则光标只能在[B表单]上了,所以你的做法不适合我的要求。(因我这里还有可能有:[C表单][D表单][E表单]...,它们间可相互切换的)

4楼: 我也曾遇到过这样的需求,我是这样做的:
用toolbar2000的TBToolWindow控件,
使用方法:
procedure TForm1.FormCreate(Sender: TObject);
var p: TPoint;
begin
p.X := 100;
p.Y := 100;
TBToolWindow1.Floating := true;
TBToolWindow1.FloatingPosition := p;
//TBToolWindow1.Hide;
end;

5楼: yzxcsw:
不明白你的意思???

6楼: 设置 B Form 的parent 为 A Form 就可以了

记账软件版7楼: 可以用 windows.setparent 或者 AForm.parent:=BForm, 两者有不同的效果。

8楼: xuxiaohan:
windows.setparent与AForm.parent:=BForm的主要区别是什么?

9楼: to:gmwing
先装上toolbar2000控件,
建个form,放个TBToolWindow控件,在form上和TBToolWindow上各放个edit,
使用方法:
procedure TForm1.FormCreate(Sender: TObject);
var p: TPoint;
begin
p.X := 100;
p.Y := 100;
TBToolWindow1.Floating := true;
TBToolWindow1.FloatingPosition := p;
//TBToolWindow1.Hide;
end;
现在看看效果,是不是你想达到的?