md4compedit.pas

来自「delphi4从入门到精通源代码」· PAS 代码 · 共 31 行

unit Md4CompEdit;

interface

uses
  DsgnIntf;

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

procedure Register;

implementation

uses
  SysUtils, Dialogs, Md4TabList, StdCtrls;

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

function TMd4TabListEditor.GetVerb (Index: Integer): string;
begin
  case Index of
    0: Result := 'Md4TabbedList (〤ant