base_listview.~pas

用Delhpi和mapx开发的警务管理系统

unit Base_ListView;

interface

uses
  SysUtils, Classes, Controls, ComCtrls;

type
  TBase_ListView = class(TListView)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor create(Aowner:TComponent);override;
    destructor  destroy;override;
  published
    { Published declarations }
    property GridLines;
    property ReadOnly;
    property RowSelect;
    property ViewStyle;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Base_Controls', [TBase_ListView]);
end;


constructor TBase_ListView.create(Aowner:TComponent);
begin
  inherited create(Aowner);
  GridLines:=true;
  ReadOnly:=true;
  RowSelect:=true;
  ViewStyle:=vsReport;
end;

destructor TBase_ListView.destroy;
begin
  inherited destroy;
end;
end.