8288分类目录 8288分类目录 8288分类目录
  当前位置:海洋目录网 » 站长资讯 » 站长资讯 » 文章详细 订阅RssFeed

现在使用控件, 更喜欢继承

来源:本站原创 浏览:123次 时间:2021-09-11
现在使用控件, 更喜欢继承    


以前写代码, 总是把主单元弄得满满当当; 现在更喜欢把控件比较独立的功能写成一个单元, 改写属性、重载方法...哪怕只有一点点和默认不同, 也喜欢独立出来.

刚刚用到 TListBox, 需要能拖动元素、双击删除.



unit ListBox2;interfaceuses  System.Classes, Vcl.Controls, Vcl.StdCtrls, System.Types;type  TListBox2 = class(TCustomListBox)  protected    procedure DragOve��æ,����r(Source: TObject; X: Integer; Y: Integer; State: TDragState; var Accept: Boolean); override;    procedure DblClick; override;  public    constructor Create(AOwner: TComponent); override;    procedure DragDrop(Source: TObject; X: Integer; Y: Integer); override;  end;implementation{ TListBox2 }constructor TListBox2.Create(AOwner: TComponent);begin  inherited;  DragMode := dmAutomatic;end;procedure TListBox2.DblClick;begin  inherited;  Items.Delete(ItemIndex);end;procedure TListBox2.DragDrop(Source: TObject; X, Y: Integer);begin  inherited;  Items.Exchange(ItemIndex, ItemAtPos(Point(X,Y), True));end;procedure TListBox2.DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);begin  inherited;  Accept := True;end;end.


测试:



uses ListBox2;procedure TForm1.FormCreate(Sender: TObject);begin  with TListBox2.Create(Self) do begin    Parent := Self;    Align := alLeft;    Items.CommaText := 'A,B,C,D,E,F,G';  end;end;


  推荐站点

  • At-lib分类目录At-lib分类目录

    At-lib网站分类目录汇集全国所有高质量网站,是中国权威的中文网站分类目录,给站长提供免费网址目录提交收录和推荐最新最全的优秀网站大全是名站导航之家

    www.at-lib.cn
  • 中国链接目录中国链接目录

    中国链接目录简称链接目录,是收录优秀网站和淘宝网店的网站分类目录,为您提供优质的网址导航服务,也是网店进行收录推广,站长免费推广网站、加快百度收录、增加友情链接和网站外链的平台。

    www.cnlink.org
  • 35目录网35目录网

    35目录免费收录各类优秀网站,全力打造互动式网站目录,提供网站分类目录检索,关键字搜索功能。欢迎您向35目录推荐、提交优秀网站。

    www.35mulu.com
  • 就要爱网站目录就要爱网站目录

    就要爱网站目录,按主题和类别列出网站。所有提交的网站都经过人工审查,确保质量和无垃圾邮件的结果。

    www.912219.com
  • 伍佰目录伍佰目录

    伍佰网站目录免费收录各类优秀网站,全力打造互动式网站目录,提供网站分类目录检索,关键字搜索功能。欢迎您向伍佰目录推荐、提交优秀网站。

    www.wbwb.net