:请问牛人牛人高手.来者可能有分
在线等:请教牛人牛人高手...来者可能有分
我想在当前MDI主窗体里,显示其它窗体的内容,也就是当点击左边的导航按钮时,右边一框显示将要显示的窗体.
------解决方案--------------------
没太明白
------解决方案--------------------
如果你做的标准的mdi程序,左边有align left的菜单项,你点了它,create新的child窗体并show,不就在你右边的客户区里了么?你倒底想问啥?
------解决方案--------------------
主窗体上放个PANEL之类ALGIN属性设置成ALLEFT
显示CHILD窗体的时候就是你要的这个效果
------解决方案--------------------
在主窗体中初始化第二个窗体。这样运行两个窗体都能显示出来了
然后在主窗体中导航OnClick事件中写那个窗体如何变化
------解决方案--------------------
想轻松实现这样的功能,Delphi可能是做不到的.
------解决方案--------------------
一.用第三方控件,RC3控件包,里面有个控件,是啥名字来忘了,可以做成像WINDOWS一样的导航条,完全可以实现你的要求不过要停靠的窗体的FormStyle不能用MDIChild ,同时还需要设置了停靠的窗体的Position属性,
二.手动画导航面板,再用窗体嵌套的方法,将你要的窗体嵌套到面板上也是可以的
------解决方案--------------------
我说啦,不用这控件也行,你自己画导航条哪...只是效果没那个控件做的好看而...
------解决方案--------------------
说了半天就MPI,那你就不要说成MDI。
------解决方案--------------------
设置parent
------解决方案--------------------
Form2.Align alClient
Form2 设置为自动创建
procedure TForm2.FormCreate(Sender: TObject);
begin
Self.ParentWindow := Form1.Panel1.Handle;
end;
------解决方案--------------------
手误
因该是手动创建
------解决方案--------------------
procedure TForm1.Button1Click(Sender: TObject);
var
fm2 : TForm2;
begin
fm2 := TForm2.Create(Self);
fm2.FormStyle := fsNormal;
fm2.Parent := Self;
fm2.Align := alClient;
fm2.Show;
end;
我想在当前MDI主窗体里,显示其它窗体的内容,也就是当点击左边的导航按钮时,右边一框显示将要显示的窗体.
------解决方案--------------------
没太明白
------解决方案--------------------
如果你做的标准的mdi程序,左边有align left的菜单项,你点了它,create新的child窗体并show,不就在你右边的客户区里了么?你倒底想问啥?
------解决方案--------------------
主窗体上放个PANEL之类ALGIN属性设置成ALLEFT
显示CHILD窗体的时候就是你要的这个效果
------解决方案--------------------
在主窗体中初始化第二个窗体。这样运行两个窗体都能显示出来了
然后在主窗体中导航OnClick事件中写那个窗体如何变化
------解决方案--------------------
想轻松实现这样的功能,Delphi可能是做不到的.
------解决方案--------------------
一.用第三方控件,RC3控件包,里面有个控件,是啥名字来忘了,可以做成像WINDOWS一样的导航条,完全可以实现你的要求不过要停靠的窗体的FormStyle不能用MDIChild ,同时还需要设置了停靠的窗体的Position属性,
二.手动画导航面板,再用窗体嵌套的方法,将你要的窗体嵌套到面板上也是可以的
------解决方案--------------------
我说啦,不用这控件也行,你自己画导航条哪...只是效果没那个控件做的好看而...
------解决方案--------------------
说了半天就MPI,那你就不要说成MDI。
------解决方案--------------------
设置parent
------解决方案--------------------
Form2.Align alClient
Form2 设置为自动创建
procedure TForm2.FormCreate(Sender: TObject);
begin
Self.ParentWindow := Form1.Panel1.Handle;
end;
------解决方案--------------------
手误
因该是手动创建
------解决方案--------------------
procedure TForm1.Button1Click(Sender: TObject);
var
fm2 : TForm2;
begin
fm2 := TForm2.Create(Self);
fm2.FormStyle := fsNormal;
fm2.Parent := Self;
fm2.Align := alClient;
fm2.Show;
end;