调用CreateParams(var params:tcreateparams);后我怎么样访问form上的元素?(100分)

E

eflyer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #1

调用CreateParams后我访问form1.lable1 form1.color等都没有反映了，我怎么样在其他的过程或者函数里访问form上的元素？谢谢了，给100分行么？

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #2

必须有一个全局变量
Var
Form1:TForm1;

 

E

eflyer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #3

我有啊。form1:tform 这是delphi给我建的阿。这样不行么？

 

E

eflyer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #4

procedure TPostForm_.CreateParams(var params:tcreateparams);

begin

inherited CreateParams(params);
params.Width:=rsposttype.width;
params.Height:=rsposttype.height;
params.WndParent:=GetDesktopwindow;
params.ExStyle:=params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW or WS_EX_ACCEPTFILES or WS_EX_NOPARENTNOTIFY;

end;
也许你要说不用调用createparams可是我确实在以后的功能里必须使用他。谢谢

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #5

params.Width:=rsposttype.width;
params.Height:=rsposttype.height;
params.WndParent:=GetDesktopwindow;
params.ExStyle:=params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW or WS_EX_ACCEPTFILES or WS_EX_NOPARENTNOTIFY;
inherited CreateParams(params);//次序换一下试试

我没有试过

 

E

eflyer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #6

次序换了也是没有反应....帮我再看看？？thanks

 

E

eflyer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #7

procedure TPostform_Button1Click(Sender: TObject);
begin
PostForm_.Label1.Caption:='hello';//这一句没有反应
end;

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #8

TPostForm_=class
//
..这部分代码能贴出吗？
end;

 

E

eflyer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #9

?????怎么回事儿呢？我再看看谢谢

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #10

你的我没有试过，写了一个，没有问题 ：

public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams); override;

implementation

{$R *.DFM}

procedure TForm1.Createparams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
end;

procedure TForm1.FormDblClick(Sender: TObject);
begin
Close;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Label1.Caption :='asdf';
end;

 

E

eflyer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #11

多人接受答案了。