CnPack Forum » CnVCL 组件包 » 我想写个东西发给cnpack,但是有个问题,进来看吧


2006-2-10 17:11 SuperYoyoNC
我想写个东西发给cnpack,但是有个问题,进来看吧

在做一种类似一些软件的“选项”对话框所采用的形式,目的是不管是用TreeView,还是用Tab,都可作出软件的“选项”对话框,现在正在实现一个TreeNodes和Frame结合的形式。

可能说不清楚。可以看一个图:

[img]http://blog.csdn.net/images/blog_csdn_net/greatsuperyoyonc/165265/o_未命名.JPG[/img]

具体的问题,请先把这些声明看下去,自然就知道问题是什么了:P

Type
  TBaseFrameClass = Class Of TBaseFrame; //对TBaseFrame的类引用
  {* 关于TBaseFrame,在这里可以就当它是一个TFrame。}
  TBaseFrameEvent = Procedure(Sender: TObject; Frame: TBaseFrame) Of Object;

  TBasePreference = Class(TObject) //抽象基类
  Protected
    Procedure DoApply; Virtual; Abstract; //具体“应用”或者“确定”交给子类
    Procedure DoReset; Virtual; Abstract; //具体“恢复默认值”交给子类
    Procedure DoResetAll; Virtual; Abstract; //具体“全部恢复默认值”交给子类
  Public
    Procedure Apply; //响应“应用”或者“确定”命令
    Procedure Reset; //响应“恢复默认值”命令
    Procedure ResetAll; //响应“全部恢复默认值”命令
  End;

  TTreePreference = Class(TBasePreference) //使用TreeNodes来管理的子类
  Protected
    FItems: TTreeNodes;
    FCurrItem: TTreeNode;
    FRelatedTreeView: TCustomTreeView;
    Procedure SetRelatedTreeView(TreeView: TCustomTreeView); Virtual; Abstract;
  Public
    Property RelatedTreeView: TCustomTreeView Read FRelatedTreeView Write
      SetRelatedTreeView;
  End;

  TFrameTreePreference = Class(TTreePreference) //Frame和TreeNodes的结合
  Private
    FFrameOwner: Boolean;
    FCurrFrame: TBaseFrame;
    FNullFrame: TBaseFrame;
    FOnApply: TBaseFrameEvent;
    FOnReset: TBaseFrameEvent;
    Procedure SetRelatedTreeView(TreeView: TCustomTreeView); Override;
    Procedure DoApply; Override;
    Procedure DoReset; Override;
    Procedure DoResetAll; Override;
    // 实际上,有点像在包装TTreeNodes
    Procedure GetNodeFromIndex(Index: Integer);
  Public
    Constructor Create(NullFrame: TBaseFrame; FrameOwner: Boolean;
      TreeNodesOwner: TCustomTreeView);
    Destructor Destroy; Override;
    // 实际上,有点像在包装TTreeNodes
    Function AddChildObjectFirst(Parent: TTreeNode; Const S: String; FrameType:
      TBaseFrameClass): TTreeNode;
    Function AddChildObject(Parent: TTreeNode; Const S: String; FrameType:
      TBaseFrameClass): TTreeNode;
    Function AddObjectFirst(Sibling: TTreeNode; Const S: String; FrameType:
      TBaseFrameClass): TTreeNode;
    Function AddObject(Sibling: TTreeNode; Const S: String; FrameType:
      TBaseFrameClass): TTreeNode;
    Function AddNode(Node, Relative: TTreeNode; Const S: String; FrameType:
      TBaseFrameClass; Method: TNodeAttachMode): TTreeNode;
    Function AlphaSort(ARecurse: Boolean = False): Boolean;
    Procedure Assign(Source: TPersistent); Override;
    Procedure BeginUpdate;
    Procedure Clear;
    Function CustomSort(SortProc: TTVCompare; Data: Longint; ARecurse: Boolean =
      False): Boolean;
    Procedure Delete(Node: TTreeNode);
    Procedure EndUpdate;
    Function GetFirstNode: TTreeNode;
    Function GetNode(ItemId: HTreeItem): TTreeNode;
    Function InsertObject(Sibling: TTreeNode; Const S: String; FrameType:
      TBaseFrameClass): TTreeNode;
    Function InsertNode(Node, Sibling: TTreeNode; Const S: String; FrameType:
      TBaseFrameClass): TTreeNode;
    Property Count: Integer Read GetCount;
    Property Item[Index: Integer]: TTreeNode Read GetNodeFromIndex;
    {* 我的困惑就在Item属性的类型:TTreeNode上}
    {因为现在这样注定是可以通过Item来随便篡改Data的指向的指针,就
     是说,BaseFrame和TreeNode的关系就会乱掉!
     现在我的解决办法是把这个属性定义修改成:
     Property Item[Index: Integer]: TPreferenceNode,
     当然,上面很多的TTreeNode都要改为TPreferenceNode,然后再定义
     一个TPreferenceNode,也是在包装TTreeNode,只不过把Data属性给
     修改了,变成Data是TBaseFrame类型的对象。这样就不会乱。

     不过这样又要借助一个TObjectList,主要是用它的FindInstanceOf,
     来查找TBaseFrame。这样会很复杂。有什么比这个更好的方法呢?
    }
  End;

[[i] Last edited by SuperYoyoNC on 2006-2-10 at 17:18 [/i]]

2006-2-16 02:08 flamingo
WinMAP 没有使用新型的控件,他用的直接就是 Treeview ,Delphi 开源界中有个著名的
virtual Tree 可以看看。它几乎可以做到任何形式的效果。

2006-2-18 15:15 SuperYoyoNC
不是啊

我没有说要做什么效果的TreeView,
我只是要做一个软件里通用的“选项设置”的系统,做到无论是TreeView+Frame,还是Tab+Pannel,还是其他什么形式的,都可以通用!!

2006-7-25 10:32 VictorWoo
要是PageControl能够隐藏标题就好了

2006-7-31 10:09 Passion
要隐藏标题的PageControl,不如用TNoteBook

2006-7-31 10:22 VictorWoo
啊,win3.1面板里的控件都是古董级的了,还能焕发第二春?
研究看看呵呵

2006-8-6 17:01 csofter
PageControl可以隐藏标题呀,把各个tab的tabvisible设成false就可以了

2007-5-22 01:09 小雨哥
一个思维

我赞同这样的研究,但我要说的是不用这样去研究。

Delphi 确实存在组件、类库,那是比较底层的架构,而使用这些东西的时候,通常进入一种叫功能性框架的领域。这时候
注重的是如何实现功能。至于是使用Tree还是Tab,只要不影响功能实现,通常会根据界面要求取其一。二种在界面效果
上都有自身的优势,做成通用架构不需要定位在这二个东西上,更好的是定义一组访问接口,如此,即便是 Listbox 也一
样可以融合到这个通用架构来。这时,这个通用接口好比就是一个抽象层。

PageControl 是 Windows 基础类库里带的东西,NoteBook 却是原生的 Delphi 实现,与 Win3.1 本身没有关系。只是表
示这个东西历史悠久,但并不表示这东西是落伍的。

一点愚见,谨奉大鉴。

2007-6-22 11:51 小笨象
NoteBook 是我用得最多的控件之一。
原因之一就是能不显示标题。
说真的,我还真不知道csofter 说的方法。刚才一试,:mad: 白写这么多年程序了。:L :L
以后全部转用PageControl ,因为NoteBook里有些地方实在是很让人头痛。

2007-6-25 10:23 kendling
使用TPageControl时要小心自带的热键:Ctrl+Tab和Ctrl+Shift+Tab

2007-7-20 09:48 jAmEs_
[quote]原帖由 [i]小笨象[/i] 于 2007-6-22 11:51 发表
NoteBook 是我用得最多的控件之一。
原因之一就是能不显示标题。
说真的,我还真不知道csofter 说的方法。刚才一试,:mad: 白写这么多年程序了。:L :L
以后全部转用PageControl ,因为NoteBook里有些地方实在是很让人头痛 ... [/quote]

我也不知道,但是其實這個不是我們的錯,因為TabVisible := false后,它的Visible也=False了。所以一直以來,我都以為這個只是隱藏整個頁面的。
事實上,這個屬性本來的意義也在于這樣,只是Visible := false后也可以顯示頁面罷了

2007-7-21 19:47 ExSystem
混,都有那么长时间了……还处于置顶

直接进CnPackI的群共享进行测试第一版的成品……

页: [1]


Powered by Discuz! Archiver 5.0.0  © 2001-2006 Comsenz Inc.