Delphi控件源码

开发平台：

Delphi

MdCompEdit.pas：源码内容

							unit MdCompEdit;
interface
uses
  DesignIntf, DesignEditors;
type
  TMdListCompEditor = 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, StdCtrls, MdListDial;
function TMdListCompEditor.GetVerbCount: Integer;
begin
  Result := 3;
end;
function TMdListCompEditor.GetVerb (Index: Integer): string;
begin
  case Index of
    0: Result := 'MdListDialog (〤ant

						