將集合轉換爲'命名組件' - 編譯器錯誤

Question

這與接受的答案another question I asked具體相關。在我已經現有集合到這個新的「命名的集合項目」結構（如前面的問題中詳細說明）的轉換，我碰到一個編譯器錯誤...

[Error] JDSockets.pas(818): Incompatible types: 'tagWNDCLASSA' and 'Class reference'

這是從Register未來過程中，在第一線RegisterClass(TSvrCommandComp);

TSvrCommandComp是我的版本在前面的答案TChildComponent，並TJDServerSocket是我的版本的TParentComponent的。

現在在上一個答案中，實際上有2個單位定義。我跳過了這個概念，並將它們構建在同一個單元中。而這個單位非常龐大。在這裏我有以下剝出盡可能多的東西無關......

unit JDSockets; 

interface 

uses 
    Classes, Windows, SysUtils, StrUtils, ScktComp, ExtCtrls, 
    DesignEditors, DesignIntf; 

type 
    TSvrCommands = class; 
    TSvrCommand = class; 
    TSvrCommandComp = class; 
    TSvrCommandParentComp = class; 
// ---------- CODE REMOVED HERE ------------ 

//////////////////////////////////////////////////////////////////////////////// 
// Command Collections 
// Goal: Allow entering pre-set commands with unique Name and ID 
// Each command has its own event which is triggered when command is received 
// IN PROGRESS: Implementing named command components from collection 

    //Determines how commands are displayed in collection editor in design-time 
    TJDCmdDisplay = (cdName, cdID, cdCaption, cdIDName, cdIDCaption); 

    TJDScktSvrCmdEvent = procedure(Sender: TObject; Socket: TJDServerClientSocket; 
    const Data: TStrings) of object; 

    TSvrCommandComp = class(TComponent) 
    private 
    FParent: TSvrCommandParentComp; 
    procedure SetParent(const Value: TSvrCommandParentComp); 
    protected 
    procedure SetParentComponent(AParent: TComponent); override; 
    public 
    destructor Destroy; override; 
    function GetParentComponent: TComponent; override; 
    function HasParent: Boolean; override; 
    property Parent: TSvrCommandParentComp read FParent write SetParent; 
    end; 

    TSvrCommandParentComp = class(TComponent) 
    private 
    FChilds: TList; 
    protected 
    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; 
    public 
    constructor Create(AOwner: TComponent); override; 
    destructor Destroy; override; 
    property Childs: TList read FChilds; 
    end; 

    TSvrCommand = class(TCollectionItem) 
    private 
    FComp: TSvrCommandComp; 
    fID: Integer; 
    fOnCommand: TJDScktSvrCmdEvent; 
    fParamCount: Integer; 
    fCollection: TSvrCommands; 
    fCaption: String; 
    function GetName: string; 
    procedure SetID(Value: Integer); 
    procedure SetName(Value: String); 
    procedure SetCaption(const Value: String); 
    protected         
    property ChildComponent: TSvrCommandComp read FComp write FComp; 
    function GetDisplayName: String; override; 
    public 
    procedure Assign(Source: TPersistent); override; 
    constructor Create(Collection: TCollection); override; 
    destructor Destroy; override; 
    published 
    property ID: Integer read fID write SetID; 
    property Name: String read GetName write SetName; 
    property Caption: String read fCaption write SetCaption; 
    property ParamCount: Integer read fParamCount write fParamCount; 
    property OnCommand: TJDScktSvrCmdEvent read fOnCommand write fOnCommand; 
    end; 

    TSvrCommands = class(TCollection) 
    private 
    FDesigner: IDesigner; 
    fOnUnknownCommand: TJDScktSvrCmdEvent; 
    fDisplay: TJDCmdDisplay; 
    function GetItem(Index: Integer): TSvrCommand; 
    procedure SetItem(Index: Integer; Value: TSvrCommand); 
    procedure SetDisplay(const Value: TJDCmdDisplay); 
    public 
    constructor Create(AOwner: TPersistent); 
    destructor Destroy; override; 
    procedure DoCommand(const Socket: TJDServerClientSocket; 
     const Cmd: Integer; const Data: TStrings); 
    function Add: TSvrCommand; 
    property Items[Index: Integer]: TSvrCommand read GetItem write SetItem; 
    property Designer: IDesigner read FDesigner write FDesigner; 
    published 
    property Display: TJDCmdDisplay read fDisplay write SetDisplay; 
    property OnUnknownCommand: TJDScktSvrCmdEvent 
     read fOnUnknownCommand write fOnUnknownCommand; 
    end; 

// ---------- A BUNCH OF CODE REMOVED HERE ------------ 

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

// ---------- CODE REMOVED HERE ------------ 

procedure Register; 

implementation 

uses 
    ColnEdit; 

procedure Register; 
begin 
    RegisterClass(TSvrCommandComp); //<-- ERROR 
    RegisterNoIcon([TSvrCommandComp]); 
    RegisterComponents('JD Custom', [TJDServerSocket]); 
    RegisterComponentEditor(TSvrCommandParentComp, TSvrCommandEditor); 
end; 

// ---------- A BUNCH OF CODE REMOVED HERE ------------ 

{ TSvrCommands } 

function TSvrCommands.Add: TSvrCommand; 
begin 
    Result:= inherited Add as TSvrCommand; 
end; 

constructor TSvrCommands.Create(AOwner: TPersistent); 
begin 
    inherited Create(TSvrCommand); 
    Self.fOwner:= AOwner; 
end; 

destructor TSvrCommands.Destroy; 
begin 
    inherited Destroy; 
end; 

procedure TSvrCommands.DoCommand(const Socket: TJDServerClientSocket; 
    const Cmd: Integer; const Data: TStrings); 
var 
    X: Integer; 
    C: TSvrCommand; 
    F: Bool; 
begin 
    F:= False; 
    for X:= 0 to Self.Count - 1 do begin 
    C:= GetItem(X); 
    if C.ID = Cmd then begin 
     F:= True; 
     try 
     if assigned(C.fOnCommand) then 
      C.fOnCommand(Self, Socket, Data); 
     except 
     on e: exception do begin 
      raise Exception.Create(
      'Failed to execute command '+IntToStr(Cmd)+': '+#10+e.Message); 
     end; 
     end; 
     Break; 
    end; 
    end; 
    if not F then begin 
    //Command not found 

    end; 
end; 

function TSvrCommands.GetItem(Index: Integer): TSvrCommand; 
begin 
    Result:= TSvrCommand(inherited GetItem(Index)); 
end; 

function TSvrCommands.GetOwner: TPersistent; 
begin 
    Result:= fOwner; 
end; 

procedure TSvrCommands.SetDisplay(const Value: TJDCmdDisplay); 
begin 
    fDisplay := Value; 
    //Refresh collection items 

end; 

procedure TSvrCommands.SetItem(Index: Integer; Value: TSvrCommand); 
begin 
    inherited SetItem(Index, Value); 
end; 

{ TSvrCommand } 

procedure TSvrCommand.Assign(Source: TPersistent); 
begin 
    inherited; 

end; 

constructor TSvrCommand.Create(Collection: TCollection); 
begin 
    inherited Create(Collection); 
    FComp:= TSvrCommandComp.Create(Collection.Owner); 
end; 

destructor TSvrCommand.Destroy; 
begin 
    FComp.Free; 
    inherited Destroy; 
end; 

function TSvrCommand.GetDisplayName: String; 
begin   
    case Self.fCollection.fDisplay of 
    cdName: begin 
     Result:= fName; 
    end; 
    cdID: begin 
     Result:= '['+IntToStr(fID)+']'; 
    end; 
    cdCaption: begin 
     Result:= fCaption; 
    end; 
    cdIDName: begin 
     Result:= '['+IntToStr(fID)+'] '+fName; 
    end; 
    cdIDCaption: begin 
     Result:= '['+IntToStr(fID)+'] '+fCaption; 
    end; 
    end; 
end; 

function TSvrCommand.GetName: string; 
begin 
    Result:= FComp.Name; 
end; 

procedure TSvrCommand.SetCaption(const Value: String); 
begin 
    fCaption := Value; 
end; 

procedure TSvrCommand.SetID(Value: Integer); 
begin 
    FID:= Value; 
end; 

procedure TSvrCommand.SetName(Value: String); 
begin 
    FComp.Name := Value; 
end; 

{ TSvrCommandComp } 

destructor TSvrCommandComp.Destroy; 
begin 
    Parent:= nil; 
    inherited; 
end; 

function TSvrCommandComp.GetParentComponent: TComponent; 
begin 
    Result := FParent; 
end; 

function TSvrCommandComp.HasParent: Boolean; 
begin 
    Result := Assigned(FParent); 
end; 

procedure TSvrCommandComp.SetParent(const Value: TSvrCommandParentComp); 
begin 
    if FParent <> Value then 
    begin 
    if Assigned(FParent) then 
     FParent.FChilds.Remove(Self); 
    FParent := Value; 
    if Assigned(FParent) then 
     FParent.FChilds.Add(Self); 
    end; 
end; 

procedure TSvrCommandComp.SetParentComponent(AParent: TComponent); 
begin 
    if AParent is TSvrCommandParentComp then 
    SetParent(AParent as TSvrCommandParentComp); 
end; 

{ TSvrCommandParentComp } 

constructor TSvrCommandParentComp.Create(AOwner: TComponent); 
begin 
    inherited; 
    FChilds := TList.Create; 
end; 

destructor TSvrCommandParentComp.Destroy; 
begin 
    FChilds.Free; 
    inherited; 
end; 

procedure TSvrCommandParentComp.GetChildren(Proc: TGetChildProc; 
    Root: TComponent); 
var 
    i: Integer; 
begin 
    for i := 0 to FChilds.Count - 1 do 
    Proc(TComponent(FChilds[i])); 
end; 

{ TSvrCommandEditor } 

procedure TSvrCommandEditor.ExecuteVerb(Index: Integer); 
var 
    LCollection: TChildComponentCollection; 
    i: Integer; 
begin 
    LCollection := TChildComponentCollection.Create(Component, TChildComponentCollectionItem); 
    LCollection.Designer := Designer; 
    for i := 0 to TParentComponent(Component).Childs.Count - 1 do 
    with TChildComponentCollectionItem.Create(nil) do 
    begin 
     ChildComponent := TChildComponent(TParentComponent(Component).Childs[i]); 
     Collection := LCollection; 
    end; 
    ShowCollectionEditorClass(Designer, TCollectionEditor, Component, LCollection, 'Childs'); 
end; 

function TSvrCommandEditor.GetVerb(Index: Integer): string; 
begin 
    Result := 'Edit Commands...'; 
end; 

function TSvrCommandEditor.GetVerbCount: Integer; 
begin 
    Result := 1; 
end; 

end. 

Answer 1

你使用條款課後有Windows和這樣的錯誤的RegisterClass在範圍內。這個名稱有一個windows API函數，但你需要Classes單元中的函數。

要麼完全限定名稱（Classes.RegisterClass）或重新排序您的使用條款中的單位。