真是汉颜，怎样将一个框架(frame)放入窗体(form)中(50分)

飞

飞云顶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #1

我想看看框架怎样使用，所以建了个frame。
但不知道怎样将它放到一个窗体中，
不好意思，我在书本里找不到这个问题的描述。
各位给我讲讲？
谢谢

 

S

Solid_Snake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #2

delphi左上角的file，new选择frame，然后在file的use unit（或者Alt+F11），选择frame，就可以加入了。

 

J

jameschin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #3

点一下控件栏里的frame然后再在要加的form里点一下.就可以了.如果有多个frame可以选择.
记得在那个form里use frame

 

H

Highpeak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #4

呵呵

 

W

WRainbug!

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #5

首先file->New Frame.
然后把frame控件放到Form上.
明白?

 

飞

飞云顶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #6

楼上兄台，真不好意思。
我会建frame.已经做好了。里面还有些控件，如combobox,listbox.edit.之类。
也为他们写好了代码。
问题是不知道怎样把这个做好了的frame放到form里。
‘点一下控件栏里的frame然后再在要加的form里点一下.就可以了.如果有多个frame可以选择.’

控件栏里并没有刚才做frame啊？我用delphi7
‘delphi左上角的file，new选择frame，然后在file的use unit（或者Alt+F11），
选择frame，就可以加入了。’
use unit我也知道。
‘选择frame，就可以加入了’我就不知道了。

 

唐

唐佐平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #7

怎么动态加入呢？

 

热

热水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #8

步聚如下：
1、在窗体上放一个pageControl，放设置其align为client;
2、AForm := AClass.Create(TFrame); //建立新页面;
3、AForm.show;


其具体示范代码如下：
创建：
AFrame1 := TProjAccept(CreatePageForm(TProjAccept));

调用函数：
function TMDIChild.CreatePageForm(AClass: TFrameClass): TFrame;
var
AForm: Tframe;
i: integer;
begin
Result := nil;

//判断窗口是否已经创建
for i:=0 to FormNumber-1 do
if (FWindows.FormName=AClass.ClassName)
and (FWindows.FormPointer<>nil) then
begin
// SendMessage(TfRame(FWindows.FormPointer).Handle,UM_FrameBringFront,0,0);
TfRame(FWindows.FormPointer).BringToFront;
Result := FWindows.FormPointer;
Exit;
end;

//Create, insert, registe
AForm := AClass.Create(FAppPara.Owner); //建立新页面;
if Assigned(AForm) then
begin
AForm.Parent :=FAppPara.Owner;
AForm.Left := (FAppPara.Owner.Width - AForm.Width) div 2;
AForm.Top := (FAppPara.Owner.Height - AForm.Height) div 2;
AForm.Align:=alClient;
//AForm.left:=30;
//AForm.top:=80;
//sendMessage(AForm.Handle,UM_FrameShow,0,0);
for i:=0 to FormNumber-1 do
if FWindows.FormName=AForm.ClassName then
begin
FWindows.FormPointer := AForm;
break;
end;
AForm.Show;
end;
Result := AForm;
end;

如果还有什么问题，请联系：zhong@sitech.com.cn

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #9

分特，我是第一个明白 飞云顶 需求的人 []

>>我会建frame.已经做好了。里面还有些控件，如combobox,listbox.edit.之类。也为他们写好了代码。
>>问题是不知道怎样把这个做好了的frame放到form里。
>>控件栏里并没有刚才做frame啊？我用delphi7

标准控件栏的第一个控件就是Frames，把它放到窗体上，它就会让你选择自己做的Frame了

 

飞

飞云顶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #10

wjiachun .你的确明白我说什么，谢谢大家。
真的如此简单。我怎么就没看到呢？
接受答案了。
xiexie.

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #11

agree wjiachun []

 

飞

飞云顶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #12

热水 兄台的热心，让我感动....

 

热

热水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #13

其实，在实际的开发中，通常是将Frame定位到界面的一部分如右帧，如金蝶财务软件的界面就是
这样，所以不单要把Frame放到Form上，而是要将Frame放到Form上的PageControl上，动态的
改变帧的内容。
所以你还是查看我给你写方法吧，这是我的一个Mis管理系统中界面即模仿金蝶财务软件控制界面方法。

 

J

jameschin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #14

怪我没说清楚，不过wjiachun大虾已经将明白了吧

 

飞

飞云顶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-16

• #15

多人接受答案了。