كيفية إنشاء تكوستومكونترول الذي يتصرف مثل تبانيل?

Question

كيف يمكنني إنشاء تكستومكونترول التي سوف تتصرف مثل تبانيل?على سبيل المثال ميكوستومكومبوننت ، أنني يمكن إسقاط المكونات في مثل التسميات والصور الخ.

Answer 1

الحيلة هي هذه القطعة من التعليمات البرمجية في تكوستمبانيل:

constructor TCustomPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := [csAcceptsControls {, ... } ];
//...
end;

هناك العديد من الضوابط فكل يمكنك النزول من التي لديها csAcceptsControls في ControlStyle الملكية.

إذا كنت تريد القيام بذلك في عناصر التحكم الخاصة بك ، ولكن لا تنحدر من عنصر تحكم فكل هذا ، فعليك القيام بشيء من هذا القبيل:

1. تجاوز إنشاء منشئ
2. إضافة csAcceptsControls إلى ControlStyle الممتلكات

مثل نموذج التعليمات البرمجية هذا:

//MMWIN:MEMBERSCOPY
unit _MM_Copy_Buffer_;

interface

type
  TMyCustomControl = class(TSomeControl)
  public
    constructor Create(AOwner: TComponent); override;
  end;


implementation

{ TMyCustomControl }

constructor TMyCustomControl.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle + [csAcceptsControls {, ...} ];
//...
end;


end.

-- جيروين