导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2004/5/7 16:52:23
标题:
怎么把子窗口显示在任务栏上,就像一个新开的程序一样[搞定]
浏览:1159
加入我的收藏
楼主:
同标题
----------------------------------------------
--------------------- 世间万物空如幻 来去此间只留影 --------------------- 幻影之芯(rEgSpy/CGG) CGG WEB http://Www.CGG.Name
作者:
2004/5/7 17:09:03
2楼:
procedure TChildForm.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Parmas); ParentWindow := 0; end; 怎么用,我从来没用过重载函数,详细点,谢谢
----------------------------------------------
--------------------- 世间万物空如幻 来去此间只留影 --------------------- 幻影之芯(rEgSpy/CGG) CGG WEB http://Www.CGG.Name
作者:
sephil (NAILY Soft)
★☆☆☆☆
-
盒子中级会员
2004/5/7 17:42:00
3楼:
有点错误,哈哈 type TForm1 = class(TForm) protected procedure CreateParams(var Params: TCreateParams); override; ........ implementation procedure TChildForm.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Parmas); Parems.wndParent := 0; end; .................
----------------------------------------------
Copyright 2008 ? NAILY Soft
Click here to redirect to my home Click here to redirect to my blog
作者:
2004/5/7 17:42:35
3楼:
搞定了,高兴啊 type TForm = class(TForm) ... private { Private declarations } Procedure CreateParams(Var Params: TCreateParams); Override; end; implementation ..... Procedure TForm.CreateParams(Var Params: TCreateParams); Begin Inherited CreateParams(Params); { Set the extended style for iconizing to the taskbar } { See CreateWindowEx } With Params Do exStyle := exStyle Or WS_EX_APPWINDOW; end;
----------------------------------------------
--------------------- 世间万物空如幻 来去此间只留影 --------------------- 幻影之芯(rEgSpy/CGG) CGG WEB http://Www.CGG.Name
作者:
2004/5/7 17:44:26
4楼:
你没上QQ啊,搞定了
----------------------------------------------
--------------------- 世间万物空如幻 来去此间只留影 --------------------- 幻影之芯(rEgSpy/CGG) CGG WEB http://Www.CGG.Name
作者:
2004/5/7 17:46:03
5楼:
硬盘上有4G多的DELPHI的资料,有点提示一会就找到了
----------------------------------------------
--------------------- 世间万物空如幻 来去此间只留影 --------------------- 幻影之芯(rEgSpy/CGG) CGG WEB http://Www.CGG.Name