reglib.pas

delphi制作表格的控件

unit RegLib;

interface

uses
  DesignEditors,DesignIntf,Classes,Controls,Forms,Dialogs,EasyGrid,DesignGrid;


type
  {TEasyGridEditor}

  TEasyGridEditor = class(TComponentEditor)
    procedure ExecuteVerb(Index: Integer); override;
    function  GetVerb(Index: Integer): string; override;
    function  GetVerbCount: Integer; override;
  end;

procedure Register;

implementation 

const  DesignGrid: TDesignGridForm = nil;

procedure Register;
begin
  RegisterComponents('BaKuBaKu', [TEasyGrid]);
  RegisterComponentEditor(TEasyGrid, TEasyGridEditor);
end;


{ TEasyGridEditor }
procedure TEasyGridEditor.ExecuteVerb(Index: Integer);
Var Grid: TEasyGrid;
begin
  Grid := TEasyGrid(Component);
  if not Assigned(Grid) then Exit;
  if Index=0 then
  begin
    try
      if DesignGrid=nil then  DesignGrid := TDesignGridForm.Create(nil);
      DesignGrid.Grid := Grid;
      //DesignGrid.CurGrid := Grid;
      DesignGrid.ShowModal;
      //Grid := DesignGrid.Grid;
      //Grid.Assign(DesignGrid.FGrid);
    finally
      //DesignGridForm.Free;
      //DesignGridForm := nil;
    end;
  end;
end;

function TEasyGridEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0:Result := 'EasyGridEditor ...';
    1:Result := '-';
    2:Result := '控件开发人:刘致刚、韦明';
  end;
end;

function TEasyGridEditor.GetVerbCount: Integer;
begin
  Result :=3;
end;

initialization

finalization
  DesignGrid.Free;
end.