捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论：ZnHideForm (自动隐藏)
dmzn 29292 2007/5/8 8:17:15
2007没有用过，等待高人搞定吧，^_^
bral 29272 2007/5/5 12:46:43
delphi2006 和delphi2007安装后都有问题，可以隐藏，但无法自动弹出了，不知道怎么回事。
sail2000 26571 2006/10/13 22:37:39
D2006 安裝 pas 控件,你先找一個存在的包(例如user 包),然後將需要的 pas 添加進去,編譯...安裝...OK
giiggss 26264 2006/9/25 10:02:33
蔡鸟求助，如何将这个空间安装到Delphi2006里，2006不像D7可以单独安装一个unit.
dianhui521 22556 2006/4/1 1:14:54
对于DMZN这个组件我总体上感觉好是很好,但是要是能更人性化一点就更好了~
像QQ一样,可以动态的收缩起来.然后再动态的放下来,而不是一下就隐藏了~一下子
又跳出来~
希望得到更进一步的改进~
dmzn 21879 2006/3/3 17:55:16
组件提供了收起/展开的事件,你可以在事件中设置AlwaysTop的属性

最新的版本日期为2006-03-03,请直接使用下面链接下载.
http://www.zzfumin.com/runsoft/uploads/ZnHideForm.rar

盒子发布新版本无法覆盖老版本,所以ZnHideForm组件以后直接使用上面的链接,就不在上传到这里了.
gdsa 21874 2006/3/3 15:20:56
再请教dmzn一下,能否改成
当收起来之后自动将窗体设置为最前,
而展开后,自动还原为正常的,那就好了!!
dmzn 21727 2006/2/24 11:07:36
编写该组件的用意,是让普通窗体具有自动隐藏的属性.各位讨论的,是组件实现的效果与QQ窗体的不同.
另外,Bug的定义是这样的: Bug,也称为错误、错虫,是指在软件运行中因为程序本身有错误而造成的功能不正常、死机、数据丢失、非正常中断等现象.
至于楼上的兄弟认为我对他有嘲笑之意,我无言以对.

修改后的组件已经发布到盒子,或使用下面链接下载:
http://www.zzfumin.com/runsoft/uploads/ZnHideForm.rar
killvirus 21718 2006/2/23 17:55:59
gdsa兄那样虽然可以解决了显示桌面的问题,但会导致其他Form无法显示被主Form挡在后面,虽然可以加入一些条件控制来解决此问题,但最终效果仍不如QQ效果好,不过这样已经不错了,多谢gdsa
gdsa 21714 2006/2/23 15:28:57
按anlanet那样就应该可以了,
谁还有不同意见!
如没有了,作者是否能在控件内部进行改进
anlanet 21684 2006/2/21 17:07:44
killvirus兄所说的问题的确存在...
依照gdsa兄的思路我也给出一个方案...
加入一个Timer
var
  wnd :HWND;
begin
 wnd := Form1.Handle;
  setwindowpos(wnd,HWND_TOPMOST,0,0,0,0,SWP_SHOWWINDOW or SWP_NOSIZE or SWP_NOMOVE);
end;
gdsa 21660 2006/2/20 10:56:23
killvirus说的很对,大家有问题,若有人明白是怎么回事,应该澄清！
我有一个思路，请大家帮助完善：
窗体中加入一个Timer,添加入下代码：
var
  wnd :HWND;
begin
if not Application.Active then
begin
  wnd := Form1.Handle;
    if isiconic(wnd) then
      ShowWindow(wnd,sw_restore)
    else
      SetForegroundWindow(wnd)
end;

但也有一些问题，大家想想办法！！
killvirus 21573 2006/2/15 17:05:16
拜托老兄对自己写的东西负点责，自己发的东西有bug，我好心告诉反倒冷嘲热讽的，怎么觉得自己写了点东西就以为自己很了不起啊？你自己的DEmo里面不就是把窗体设到最顶端的吗？自己做的东西不认真测试反倒笑话别人
dmzn 21571 2006/2/15 16:38:00
呵呵,这问题都出来了.知道怎么设置窗体到最顶端吧.
killvirus 21552 2006/2/15 8:31:06
不是这个问题，是点击显示桌面后，再将鼠标移到屏幕上方，你做的那个窗体已经没有了，不能自动滑出，只能重新点击任务栏上的图标才能再次实现自动滑出。你自己试一下就知道了。盒子上关于模拟自动伸缩的都存在这个问题
dmzn 21544 2006/2/14 17:41:24
仍然不行?什么问题,请测试好了再说.
任务栏显示俩图标是吧,使用SetWindowLong设置Application的属性就行了.总不能写个程序一点一点都写上.
killvirus 21543 2006/2/14 17:32:49
仍然不行的
dmzn 21541 2006/2/14 15:51:58
TForm = ...
protected
  procedure CreateParams(var Params: TCreateParams);override;
.... //在窗体添加声明
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams( Params);
  Params.WndParent := GetDesktopWindow;
end;

这样就可以了."显示桌面"按钮也不会对窗体产生影响.隐藏在屏幕下方也一样.
dmzn 21537 2006/2/14 14:28:08
确实有这些问题,稍后修正一下.请继续发言!
killvirus 21535 2006/2/14 13:28:40
选择显示桌面后就不能自动伸缩了，而QQ却仍然可以，盒子上所有的关于模拟QQ伸缩窗体的都存在这个问题
第一页 上一页 下一页 最后页 有 23 条纪录 共2页 1 - 20
 用户名：
 密　码：
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表