窗口的自动创建(3分)

W

wxhbox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #1

我有TFORM需要自己创建，现在只知道窗口名称（字符串形式），我该怎样创建他，谢谢

 

S

suman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #2

yourformname := tform.create(nil);
yourformname.caption := 'your window name'
........

 

S

shine1111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #3

var
Child: TfrmMDIChild;
begin
Child := TfrmMDIChild.Create(Self);
Child.Caption := 'xxxx';
child.name:='xxxx';
end;

 

X

xyf2001721

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #4

uses yourformname ;

yourformname := tform.create(nil);
yourformname.caption := 'your window name'

 

M

majorcompu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-12

• #5

假设要创建名叫myform的form:
procedure TForm1.Button1Click(Sender: TObject);
var
myform: Tform;
begin
myform:=Tform.create(nil);
with myform do
begin
top:=100;
left:=200;
height:=300;
width:=400;
end;
myform.show;
end;