S suocy5 Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-21 #1 有2个Form,一个是主窗体,一个是悬浮窗,我主要让悬浮窗不在任务栏出现, 试了很多方法,包括一些技巧合集上的方法,都不管用. 谁能帮帮我?(或给我原代码 suocy5@163.com)
P pihome Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-21 #2 procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW or WS_EX_TOPMOST; Params.WndParent := 0; end;
procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW or WS_EX_TOPMOST; Params.WndParent := 0; end;
S suocy5 Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-21 #3 to pihome,不管用呀,写详细点可以吗?如form2如何create
P playtom Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-21 #4 就是重新写Form的那个参数就可以了啊，让窗体始终处于最前，自己需要写个过程的 private procedure createparams(var params:tcreateparams); ......
就是重新写Form的那个参数就可以了啊，让窗体始终处于最前，自己需要写个过程的 private procedure createparams(var params:tcreateparams); ......
W wfzha Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-21 #5 xp下好像不行，我试了一下下面的行 procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); end;
xp下好像不行，我试了一下下面的行 procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); end;
