在Delphi下怎么制作一个复合控件。比如在一个TPanel上放一个TLabel。做为一个控件？

Question

在Delphi下怎么制作一个复合控件。比如在一个TPanel上放一个TLabel。做为一个控件？

Answer 1

比如在一个TPanel上放一个TLabel能叫控件么？

Answer 2

就继承TCUSTOMPANEL增加一个属性：TLABLE应该就可以吧

Answer 3

TPanel派生一个类TPanelLabel
添加一个类的私有成员变量 TLabel:aLabel;
在TPanelLabel的构造函数中创建这个aLabel并显示出来就可以了.

Answer 4

如果控件只在delphi中用，可做成一个TFrame，与控件使用一样方便，还省事，免注册...

Answer 5

新建一个Package,点击Add按钮，选择New Component页，将其Ancestor Type 项设为TPanel
unit paneld;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls, ExtCtrls,QStdCtrls;type
  tpaneld = class(tpanel)
  private
    { Private declarations }
    Flbl1:TLabel;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner:TComponent);override;
    destructor Destroy;override;
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [tpaneld]);
end;constructor tpaneld.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  Flbl1 := TLabel.Create(AOwner);
  Flbl1.Caption := 'adf';
end;destructor tpaneld.Destroy;
begin
  Flbl1.Free;
  inherited Destroy;
end;

Answer 6

就是开发一个新的组件嘛，看看
================制作构件的基本过程可以概括为：1．编写构件单元（ unit）。其中包含构件声明和构件实现代码。2．按照与普通 Delphi单元同样的方法编译和调试构件单元。3．创建构件注册单元。其中用 uses语句连接构件单元，并用 Register过程完成构件的注册。4．编写构件联机帮助信息，并编译成标准 Windows帮助文件。全部工作完成后，生成构件单元二进制文件（． DCU）、构件注册源文件（． PAS）和帮助信息文件（． HLP）及附加的关键词文件（． KWF）。（ ObjectInspector）访问这些属性和事件。这是可视化程序设计的关键所在。对象的继承与修改制作构件第一件事就是选择适当的 Delphi对象类型作为父对象，以派生新的对象。子对象可以继承父对象的全部非 private部件，但不能摆脱不需要的部件。因此，所选父对象应尽可能多地包含子对象所需的属性、事件和方法，但不应包含子对象不需要的东西。TComponent是所有 Delphi构件的基点，但若直接从 TComponent 派生新构件，很多东西就需要自己从头做起。一般只有非可视构件才直接从 TComponent派生。 Delphi提供了若干专门用于制作控件（可视构件）的对象类型，都是从 TControl和 TWinControl派生而来。其派生关系如下：TControl－－－ TGraphicControl－－－ TCustomLabelTWinControl－－ TCustomControl－－－ TCustomGrid－－－ TButtonControl－－ TCustomGroupBox－－－ TScrollingWinControl－－ TCustomPanel－－－ TCustomComboBox－－－ TCustomEdit－－－ TCustomListBoxTControl的子类型用于非窗口式控件， TWinControl的子类型则用于窗口式控件。除非特殊需要，一般不直接从 TControl和TWinControl派生新控件，而是从其子类型派生。这样可以充分利用原有的属性、事件和方法，减少很多工作量。
在这些构件类型中，非通用的属性、事件和方法都声明为 protected。这样可以禁止构件用户访问，又能被子类型继承和修改。在新构件中，可以简单地把继承来的属性和事件重新声明为 published，使构件用户能在设计期通过对象编辑窗口访问，也可以进而修改属性的默认值和读写方式，或是重载（ override）事件处理子过程和其他构件方法，以修改其中的程序代码。重声明可以放宽访问权限，但不能 相反，例如，不可能把 published属性重声明为 private或 pro tected。为了增加新功能，常常需要定义全新的属性、事件和方法。定义时，一般总是把对用户开放的属性和事件声明为 published，把方法声明为 public或 protected。构件属性在构件中，属性和方法往往可以相互替代。对构件用户来说，属性比方法更直观简便。因此，只要可能，应尽量以属性取代方法。 属性类型包括简单类型（ numeric， character， string）、枚举类型、集合类型、对象类型（例如 font）和数组类型（例如 TStrings 类型中的 Strings）。其定义方法如下：typeprivateFLayers： Integer；｛内部存储用的变量｝functionGetLayers： Integer；｛用来读属性值的方法｝procedureSetLayers（ ALayers： Integer）；｛用来写属性值的方法｝publishedpropertyLayers：IntegerreadGetLayerswriteSetLayersdefault1；end；每个属性都需要相应的 private变量用于内部存储。按照约定，变量名以 F打头，后跟属性名（此处为 Layers），读写方法名称分别为 Get加属性名和 Set加属性名。写方法总是带一个与属性类型相同的参数，用以传送属性值。此参数可以传值，也可以传递变量。如果不定义写方法（省略 write部分），此属性便成为只读属性。读写方法应该在 pri vate部分声明，以使其对构件用户和构件的派生对象保持隐蔽。读写方法除了取值和赋值之外，还可以附加其他操作代码，使属性读写产生附加效应。这正是属性可以取代方法的原因。如果不需要附加效应，可以不定义读写方法，采用直接访问格式来声明属性：propertyLayers：IntegerreadFLayerswriteFLayersdefault1；default命令符用来指定属性的默认值，同时需要在构件的构造函数中为属性设置初值。 default命令的作用是在窗体文件存盘时提供参照：若属性当前值与 default命令指定的值不同，则把当前值保存在文件中，否则便无需保存。如果省略 default命令，属性当前值总是保存在窗体文件中。事件与事件处理过程创建构件时，事件也被当做属性来处理，区别仅在于事件必须定义为过程类型，使其成为一个隐蔽指针，指向某个潜在的过程。当构件用户为事件指定处理子程序后，事件便成为指向该子程序的指针。事件的定义方式如下：typeprivateFOnClick： TNotifyEvent；｛声明事件变量以保存过程指针｝publishedpropertyOnClick：TNotifyEventreadFOnClickwriteFOnClick；end；此例正是 Delphi标准控件中 Click事件的定义方式。可以看出，除了 OnClick被定义为过程类型外，其定义格式与一般属性的直接访问格式几乎完全相同。 Delphi预定义了所有标准事件的过程类型及标准事件所引发的虚方法。其中， Click事件将引发如下虚方法：procedureTControl． Click；beginifAssigned（ OnClick） thenOnClick（ Self）；｛以下是默认处理部分｝end；其中， Assigned函数检验 OnClick是否已分配了事件处理过程。如果返回值为 True，则调用用户指定的事件处理过程。通过重载此虚方法，可以修改 Click事件的处理方式。在重载的方法中，一般应先调用用户处理程序，然后再安排后续处理。在本例中，首行代码应当是 inheritedClick。需要注意的是，构件用户不一定会给事件指定处理程序，因此事件不能定义为函数类型，否则可能会指向返回值类型不定的空函数。如果需要事件处理过程返回某个值，可以借助 var参数。调用用户程序之前应确保此参数包含有效返回值，以免用户未指定事件处理过程时出错。
注册构件注册构件用的程序代码可以放在构件单元中，但在 Delphi下注册构件时要求提供包含注册代码的源程序文件（． PAS文件），typeTMyPanelΚ class（ TCustomPanel）TMyLabelΚ class（ TCustomLabel）procedureRegister；implementationprocedureRegister；beginRegisterComponents（′ Samples′，［ TMyPanel， TMyLabel］）；end；注册过程名必须是 Register。过程体中调用 Register Compnents，其中的两个参数分别指定 Delphi构件工具条页名和要注册的构件类型。如果指定页不存在， Delphi将创建一个新页。