delphi6里面就有这个控件的,成为LabeledEdit,你可以去看看

解决方案 »

  1.   

    从TEdit继承,为它增加一个属性,类型为TLabel
      

  2.   

    //例子:
    unit SpdBtn;interfaceuses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Buttons;type
      TSpdBtn = class(TSpeedButton)  //继承自TSpeedButton
      private
        { Private declarations }
      protected
        { Protected declarations }
      public
        { Public declarations }
      published
        { Published declarations }
      end;procedure Register;implementationprocedure Register;
    begin
      RegisterComponents('Samples', [TSpdBtn]);
    end;{ TSpdBtn }end.