delphi - Tạo khung tùy chỉnh với sự kiện mới

Question

Tôi đang làm việc trên delphi XE2.
Những gì tôi cần:
Tôi cần lớp MyFrame có khung mà không có bất kỳ thành phần hiển thị nào, nhưng với sự kiện mới hiển thị trong Trình kiểm tra đối tượng. Sự kiện này sẽ thông báo cho biểu mẫu của tôi (trên đó sẽ được đặt đối tượng MyFrame), đó là f.e. tất cả các dữ liệu trên khung hình đều được điền đầy đủ.

Những gì tôi có:
Dựa trên this post và câu trả lời của TOndrej, và that hint, nơi Ba cho thấy, rằng cho XE2 chúng ta cần phải thay thế

delphivclide := GetModuleHandle('delphivclide160.bpl'); 

với điều này:

delphivclide := GetModuleHandle('vcldesigner160.bpl'); 

Tôi có mã đó cho khung hình mới:

unit MyFrame; 
interface 
uses 
    System.Classes, Vcl.Forms; 
type 
    TMyFrame = class(TFrame) 
    private 
    protected 
    FOnFilledData : TNotifyEvent; 
    public 
    published 
    property OnFilledData : TNotifyEvent read FOnFilledData write FOnFilledData; 
    end; 
implementation 
end. 

Và đó mã cho các đơn vị đăng ký:

unit MyFrameReg; 
interface 
procedure Register; 

implementation 
uses Windows, DesignIntf, Dialogs, wFrame; 

procedure Register; 
var 
    delphivclide: THandle; 
    TFrameModule: TCustomModuleClass; 
begin 
    delphivclide := GetModuleHandle('vcldesigner160.bpl'); 
    if delphivclide <> 0 then 
    begin 
    TFrameModule := GetProcAddress(delphivclide, '@Vclformcontainer@TFrameModule@'); 
    if Assigned(TFrameModule) then 
    begin 
     ShowMessage('I''m here'); 
     RegisterCustomModule(TMyFrame, TFrameModule); 
    end; 
    end; 
end; 
end. 

Khi tôi sẽ xây dựng gói của tôi, tôi có nhắn Tôi ở đây, vì vậy tôi supossed, rằng MyFrame được đăng ký.

Vấn đề của tôi là gì:
Vấn đề là nó không hoạt động đến cùng.
Khi tôi chọn Ứng dụng VCL mới và muốn tạo MyFrame bằng cách chọn Tệp -> Mới -> Khác -> Dự án Delphi -> MyFrame thì sẽ hiển thị cửa sổ lạ bên dưới.
Khi tôi chọn một số thư mục ở đó và nhấp vào nút OK, dự án Delphi mới được đóng và dự án gói của tôi được mở.

Sẽ rất vui mừng, nếu ai đó có thể tư vấn cho tôi, những gì tôi đã làm sai.

Answer 1

đăng ký A. Khung lớp

Không cần phải làm điều đó trong một "cách hacky"

uses 
... 
    DMForm, 
    VCLFormContainer, 
... 

procedure Register; 
begin 
... 
    RegisterCustomModule(TYourFrameClass, TFrameModule); // for frames 
    RegisterCustomModule(TYourModuleClass, TDataModuleCustomModule); // for data modules 
... 
end; 

Có một cách khác xung quanh để thêm khung hình quá

type 
    TNestableWinControlCustomModule = class (TWinControlCustomModule) 
    public 
    function Nestable: Boolean; override; 
    end; 

function TNestableWinControlCustomModule.Nestable: Boolean; 
begin 
    Result := True; 
end; 

+

RegisterCustomModule(TYourFrameClass, TNestableWinControlCustomModule); 

Tên đơn vị (thử nghiệm trong XE7):

TCustomModule =>DesignEditors

TDataModuleCustomModule =>DMForm (designide.DCP)

TWinControlCustomModule =>WCtlForm (designide.dcp)

TFrameModule =>VCLFormContainer (vcldesigner.dcp)

Tôi giả sử rằng cho FireMonkey nó nên có thể trong tương tự cách (tìm fmxdesigner.dcp & kiểm tra nội dung bên trong trong Notepad ++)

B. Để sử dụng trong trình hướng dẫn "Mới ...", bạn cần đăng ký lớp thuật sĩ. Nếu bạn không có thời gian để viết lớp thuật sĩ chỉ cần tạo khung mới và sau đó thay thế tên lớp cha theo cách thủ công và thêm đơn vị thích hợp vào danh sách "sử dụng". Đó là tất cả

PS. Trong các phiên bản Delphi cũ đã có TDataModuleDesignerCustomModule metaclass thay vì TDataModuleCustomModule trong đơn vị DMDesigner

PPS. tên metaclass hiện khác:

TCustomFormCustomModule

TIDESourceModuleCustomModule