md4compedit.pas

外国人写的各种类型的源代码,有兴趣的朋友看看吧！是学习的好东西哟

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