如何使得两个普通得 窗体可分别设置为母子窗体，使得子窗体永远在母窗体中！（150）(100分)

1

1q2w3e-1q2w3e

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #1

如何使得两个普通得 窗体可分别设置为母子窗体，使得子窗体永远在母窗体中！（150）

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #2

在窗体创建的时候设置form的parten属性

 

1

1q2w3e-1q2w3e

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #3

只是这样是不够的

 

1

1q2w3e-1q2w3e

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #4

这样子窗体放大后就会把母窗体给完全盖住了

 

1

1q2w3e-1q2w3e

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #5

我的目标是：使之变为类似MDI的那种模式

 

H

Holyowl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #6

我来立即些个例子，稍等。

 

H

Holyowl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #7

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
ChildForm: TForm;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
ChildForm:=TForm.Create(Self);
Windows.SetParent(ChildForm.Handle,Handle);
ChildForm.Show;
end;

end.

 

Y

yueer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #8

也可以对已经存在的Form创建该模式
就是直接设置已经存在的Form
首先Uses Unit2
然后
procedure TForm1.FormShow(Sender: TObject);
begin
Windows.SetParent( Form2.Handle,Handle);
Form2.Show;
end;
如果对Form的大小不满意的话，可以自己再进行定义啦！