送一个将窗体显示在Panel中的函数,请教如何调用?(100分)

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #1

前几天看富翁笔记中有人收藏的,但不会调用,请指点,谢谢!
procedure ShowFormAsChild(var AForm: TForm; AFormClass: TClass;
AParent: TWinControl; AlignClient:Boolean = True);
var
acW,acH:Integer;
i:Integer;
begin
if not Assigned(AForm) then
Application.CreateForm(TComponentClass(AFormClass), AForm);
for i := 0 to AParent.ControlCount -1 do
begin
if AParent.Controls is TForm then
TForm(AParent.Controls).Hide;
end;
AForm.Parent := AParent;
AForm.Left := 0;
AForm.Top := 0;
if AlignClient then
AForm.Align := alClient;
acW := AForm.ClientWidth;
acH := AForm.ClientHeight;
AForm.BorderStyle := bsNone;
AForm.Width := acW;
AForm.Height := acH;
AForm.BringToFront;
AForm.Show;
end;

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #2

比如要把form2 放到panel1里

ShowFormAsChild(form2,Tform2,panel1,true); //最后一个bool为窗体是否alClient

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #3

你既是看人家的笔记，那上面就一定有一个示例给你下载了，怎么不下回来看一下呢，我都下了呀

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #4

to app2001
没有看到,如果你有示例发个给我,谢谢
yczjs@yckq.com
to andy263
偶也是这样写的,但不成功

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #5

直接用TabcFormPanel控件得了，使用很方便
要不我发个自己做的控件。

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #6

var a: TForm;
begin
a := Form2;
ShowFormAsChild(a, tform, panel1, true);
end;

 

J

jerry529

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #7

//没有发现什么问题，很正常啊！
var
a: TForm;
begin
a := nil;
ShowFormAsChild(a, tform, panel1, true);
end;
或者
var
a: TForm;
begin
a := TForm.Create(Self);
ShowFormAsChild(a, tform, panel1, true);
end;

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #8

to jerry529
您的方法还真没有问题,我的用法是这样
另外一个窗体的定义是
type
Tfrm1 = class(TForm)
var
frm1:Tfrm1;
就是这一句ShowFormAsChild(frm1, tfrm1, panel1, true);
提示:
[Error] Unit1.pas(62): Types of actual and formal var parameters must be identical

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #9

to yostgxf
好啊好啊,发邮箱:yczjs@yckq.com
万分感谢

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #10

已经发出，请查收

 

B

brightluna

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #11

有那么麻烦吗? 要将一个TForm显示在一个TPanel中, 只要将Form的Parent指定为Panel就行了.

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #12

to brightluna
原理是这样,用函数表达一下不是更酷些
可惜偶用不了,郁闷ing
谢谢yostgxf
谁帮我解决了,另送100分,谢谢

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #13

发给你了，收一下看看吧

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #14

你没看我写的阿
先定义个tform

var a: TForm;
begin
a := Form2;
ShowFormAsChild(a, tform, panel1, true);
end;

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #15

谢谢app2001
to andy263
动态定义窗体的确实没问题滴
为什么偶调用另一个窗体不行呢

 

S

sql1981

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #16

用manualdock就好了，为什么要自编个函数啊，
form2.manualdock(panel1,nil,alclient);

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #17

thanks sql1981
还有更好的方法
to app2001
看了一下源码
原来调用的方法是这个样子滴
ShowFormAsChild(TForm(frm1), tfrm1, panel1, true);
app2001来领分
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2460410
谢谢各位