CnPack Forum


 
Subject: 强烈建议,支持禁止D7 IDE窗口的"Dockable"功能
3304xfq
普通灌水员
Rank: 2



UID 37244
Digest Posts 0
Credits 89
Posts 33
点点分 89
Reading Access 10
Registered 2008-2-11
Status Offline
Post at 2015-6-8 11:30  Profile | Blog | P.M. 
强烈建议,支持禁止D7 IDE窗口的"Dockable"功能

D5-D7所有窗口,都会自动Dockable,比如
Object TreeView
Object inspector
Project Manager
Code explorer
等等

大多数窗口,或是子窗口, 在拖动时,或是调整大小时,都会过份自动的去和其它窗口合并,非常烦人

希望可以有选项,统一一次性关闭这些功能


目前,只能鼠标右键,在弹出菜单中,把Dockable钩去掉
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2015-6-8 13:58  Profile | Blog | P.M. 
可以写个脚本完成这功能:

{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{*******************************************************}

program DisableDock;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

var
  I: Integer;
begin
  for I := 0 to Screen.FormCount - 1 do
  begin
    if Screen.Forms[I].DragKind = dkDock then
      Screen.Forms[I].DragKind := dkDrag;

    if Screen.Forms[I].DragMode = dmAutomatic then
      Screen.Forms[I].DragMode := dmManual;
  end;
end.
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2015-6-8 14:00  Profile | Blog | P.M. 
保存此脚本,然后在脚本专家中打开脚本窗口,再打开此脚本,然后在脚本窗口中点执行,即可。
Top
 




All times are GMT++8, the time now is 2024-11-23 01:20

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.010975 second(s), 9 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP