怎样使窗体不显在状态栏上?(50分)

W

wjh_wy

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样使窗体像打开我的电脑属性一样的窗体不显示在状态栏上。
请各们兄弟姐妹帮帮忙好吧?
 
protected
procedure CreateParams(var Params:TCreateParams);
override;
procedure TChildForm.CreateParams(var Params:TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle:= Params.ExStyle and not WS_EX_APPWINDOW;
end;
 
楼上,没那么麻烦吧。。
procedure TForm1.FormCreate(sender:TObject);
begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
给分,给分。。。
 
应该是用SetWindowLong,但最好和原来的属性组合一下,
SetWindowLong(Application.Handle,GWL_EXSTYLE,
GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
 
多人接受答案了。
 
顶部