动态创建窗体问题？(80分)

A

a-qun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #1

由于需要设窗体标记使之没有标题栏，所以要重载其CreateParams方法，但
该窗体需要动态创建，非设计期存在的窗体，所以没有相关*.DFM文件，因此
在建立时会报错：Resource MyForm not found。
如何解决
我的类定义
TMyForm = calss(TForm)
...
protected CreatParams(...);
...
end;

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #2

动态创建的窗体，你也要在设计期用nerw form创建完整的unit啊

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #3

有没有unit文件呀，

 

X

xlych2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #4

设计期用nerw form创建完整的unit.......

 

A

a-qun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #5

我是在一个没有*.dfm的Unit文件中定义上面的新窗体类，就好像自定义其他类
一样只有pas文件！

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #6

应该要DFM文件的.

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #7

不要省一个文件吗，还是正规的创建一个吧

 

S

savenight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-13

• #8

uses forms,controls;
type
TMyForm=class(TForm)
public
procedure CreateParams(var Params: TCreateParams)
override;
end;
implementation

{ TMyForm }

procedure TMyForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
end;
/////////////////////////////////////////////
var
frm:TMyForm;
begin
frm:=TMyForm.CreateNew(self);
try
frm.ShowModal;
finally
frm.Free;
end;
end;

 

张

张辉明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-13

• #9

up