form1中有一面板，怎样在这面板中显示form2(100分)

J

jerryzhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #1

有两张表单form1和form2,在form1中有一面板panel,现在想在panel中显示form2,请问怎样
实现？

 

H

huiyue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #2

procedure TForm1.FormCreate(Sender: TObject);
begin
form2 :=Tform2.create(self);
form2.Parent :=form1.Panel1;
form2.show;
end;

 

S

siyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #3

procedure TForm1.Panel1Click(Sender: TObject);
begin
form2:=Tform2.Create(Self);
form2.Parent:=Panel1;
form2.Align:=alClient;
form2.Show;
end;
最好查一下以前的帖子，有很多类似的问题

 

娃

娃娃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #4

放一个panel到窗口1， 再建一个窗口2，将窗口2改成手动建立。
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Form1.Panel1);
Form2.ParentWindow := Form1.Panel1.Handle;
Form2.Show;
end;

procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if Form2.ParentWindow <> Application.Handle then
begin
CanClose := false;
showmessage('请先关闭窗口2');
end else
CanClose := true;
end;

 

娃

娃娃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #5

还有一点
procedure TForm2.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
Form2.ParentWindow := Application.Handle;
end;

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #6

用框架解决就可以了，非得用什么Panel。

 

M

marco_hsu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #7

使用窗口停靠技术，就是设置FORM1上的PANEL的DOCKSITE 属性，以及FORM2的DOCK属性，具体的你可以用GOOGLE输入'窗口停靠'或去PLAYICQ上下载‘商场管理系统’，他就主要用的这一技术

 

K

kycheung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #8

借樓主地方用一下:
那有沒有辦法將一個main menu放到一個panel上去呢?
kycheung@yeah.net
請指教!

 

L

lirenzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #9

如果你使用Frame就那都可以放了

 

D

delphi_king

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #10

有可能吗？你是不是要做成MDI的啊

 

K

kycheung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #11

TO:all
大家知不知道如何將一個main menu放到panel上去!

 

P

PeaceDove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #12

form2:=Tform2.Create(Self);
form2.Parent:=Panel1;
//设置form2的对齐方式
form2.Show;

 

魔

魔鬼大师

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #13

ok

 

J

jxguang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #14

procedure TForm1.Panel1Click(Sender: TObject);
begin
form2:=Tform2.Create(Self);
form2.Parent:=Panel1;
form2.Show;
end;

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #15

procedure TForm1.Button1Click(Sender: TObject);
var
form2:Tform;
begin
form2 := Tform.Create(nil);
form2.Parent := panel1;
form2.Show;
end;

 

J

jerryzhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #16

多人接受答案了。